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Abstract 

This  report  documents  the  W.H.O.I.  VAX-11  programs  used  to 
calculate  available  potential  energy  and  related  quantities  from  CTD  data 
using  the  technique  described  in  Bray  and  Fofonoff  (1981).  The  report 
includes  examples  of  how  the  programs  may  be  used,  as  well  as  complete 
listings  of  all  the  required  FORTRAN  files. 
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Introduction 

This  report  describes  the  structure  and  usage  of  programs  designed 
for  calculating  and  displaying  available  potential  energy  (APE), 
adiabatical ly  leveled  steric  surfaces,  and  related  variables  from  a  group 
of  CTD  stations.  For  a  general  discussion  of  the  technique  it  is 
strongly  recommended  that  the  reader  refer  to  Bray  and  Fofonoff  (1981). 
The  programs  have  an  inherent  requirement  that  the  input  CTD  data  be  an 
even  series  in  pressure,  although  the  input  pressure  interval  may  be 
specified.  This  report  describes  specifically  the  structure  of  the 
programs  as  used  on  the  W.H.O.I.  VAX-11,  with  input  data  in  the  standard 
CTD78  disc  format  (Millard,  et  al  (1978)).  Other  input  formats  can  be 
accomodated  through  modification  of  the  data  input  subroutine  as 
described  in  section  4. 

The  calculation  and  display  are  divided  into  separate  programs. 
POTential  ENergy  (POTEN)  reads  the  input  data,  calculates  the 
adiabatical ly  leveled  reference  steric  field  (see  Bray  and  Fofonoff, 

1981)  and  variables  related  to  the  leveled  field.  Potential  Energy  PLoT 
(PEPLT)  calculates  variables  derived  from  the  leveled  field  variables  and 
displays  POTEN  output  in  the  form  of  lists  and  plots. 

This  report  is  divided  into  four  sections.  The  first.  General 
Structure,  covers  the  non-FORTRAN  aspects  of  the  programs:  file 
structure,  linkage  and  general  usage.  The  second  and  third  sections 
contain  detailed  documentation  for  POTEN  and  PEPLT.  The  fourth  section 
describes  modifications  to  the  data  read  subroutine  in  POTEN,  to  allow 
input  data  in  other  than  CT078  disc  format.  Documented  examples  of  how 
to  run  the  programs  interactively  and  in  batch  mode  on  the  VAX-11  are 
found  in  Appendix  A.  Listings  of  programs  appear  in  Appendices  B  and  C. 


1.  General  Structure  of  Programs 

Both  POTEN  and  PEPLT  are  accessed  through  a  short  main  program 
which  performs  initializations  of  parameters  as  requested  by  the  user. 
Control  is  then  transferred  to  one  of  three  major  subroutines,  from  which 
point  the  user  is  free  to  access  different  branches  within  that 
subroutine,  or  request  entrance  into  either  of  the  other  two  major 
subroutines.  The  various  branches  are  described  in  detail  in  the 
following  sections.  Schematics  of  POTEN  and  PEPLT  are  shown  in  Figures 
1,  2  and  3.  The  remainder  of  POTEN  and  PEPLT  consist  of  secondary 
subroutines:  data  read,  physical  properties  of  seawater,  etc.,  which  are 
accessed  as  part  of  the  various  branches  available  to  the  user  in  the 
major  subroutines.  The  file  structure  reflects  the  program  structure 
(Table  1).  POTEN  and  PEPLT  are  linked  by  linking  the  object  files  in 
Table  1.  Accessory  files  are  listed  in  Table  2. 

The  input  data  in  CTD78  disc  format  is  accessed  using  subroutines 
from  CT0ATA/LI8,  and  the  plots  in  PEPLT  are  created  using  the  NCAR  plot 
package.  The  plot  package  creates  a  file  on  logical  unit  8  which  must  be 
read  and  translated  into  plot(s)  by  a  Metacode  translator.  Those 
translators  are  available  both  for  the  high  speed  Calcomp  plotter  and  for 
various  screens,  for  plot  previewing.  The  absolute  plot  dimensions  may 
be  altered  after  the  file  is  created,  and  the  plots  can  be  plotted  as 
many  times  as  desired.  The  use  of  the  translators  is  described  at  the 
end  of  section  3. 

The  multiple  branch  structure  of  the  programs  provides  an  extremely 
powerful  and  flexible  framework  for  computations  which  are  often  not 
routine;  however  useful  documentation  of  such  programs  is  correpondingly 
difficult.  It  is  suggested  that  the  new  user  begin  by  studying  Figs.  1., 
2  and  3.  A  documented  command  file  (ENERGY.COM)  for  a  routine 
computation  and  display  is  found  in  Appendix  A.  This  file  allows  the  new 
user  to  become  familiar  gradually  with  the  options  available  in  the 
programs.  After  studying  and  experimenting  with  the  command  file,  the 
user  may  wish  to  explore  other  options  available  by  referring  to  the 
detailed  branch  descriptions  found  in  sections  2  and  3  of  this  report. 


STATION  NAME  SHIP, 
CRUISE,  STATION 
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TA8LE  1:  FORTRAN  and  Object  Files 


Main  program 
Major  subroutines 

Data  read  subroutine 
Secondary  subroutines 

Library  subroutines 

System  subroutines  (associated 

with  the  NCAR  plot  package) 


POTEN  Files 

PEPLT  Files 

POTEN 

PEPLT 

PTENS 

PEPLS 

COMPS 

AVRGS 

AVRCP 

TABLE 

DATA 

TDATA 

POTENSUB 

PEPLTSUB 

POTENSUB 

CTDATA/LIB 

AUTOGRAPH 

OASHCHAR 

NCAR 

ft  •»  +-*0**s  r 
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TABLE  2 


Accessory  Fi les 

Common,  dimension  and  equivalence 

required  for  compilation  (FORTRAN) 

Station  lists  ( JSHP.PTN  is 

generated  by  COMPS  —  unit  12) 

Input  data 

*.CTD  is  CTD  file 
*.REG  is  generated  by  COMPS 
*.AVG  is  generated  by  AVRCP 
*  is  the  station  identifier 

Common  storage  (binary  file) 

POTEN  and  PEPLT  generate  these 
if  they  do  not  exist  in  the 
directory 

Documentation  files  (formatted) 


Command  file  used  to  set  up 
assignments  and  start  an 
interactive  job 

Command  file  used  to  run  POTEN  and 
PEPLT  sequentially  in  batch  mode, 
supplying  standard  output. 

Command  file  to  create  plots  shown 
in  Fig.  4  using  TABLE  subroutine. 

Command  file  to  compute  dynamic 
height  station  by  station  and 
output  in  map  format. 


POTEN 


COMPOTEN.FOR 


JSHP.PTN 

*  .CTD 
*.REG 


KPTCM.DAT 


POTEN.DOC 


POTEN.COM 


ENERGY.COM 


PEPLT 


COMPEPLT.FOR 


JSHP.PTN 

*.AVG 


KPLCM.DAT 


PEPLS.DOC 

PEPLS3.DOC 

AVRGS.DOC 

PEPLT.COM 


TABLE.COM 


DYNHT.COM 


K 

A 
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2.  Documentation  of  POTEN 

In  this  section,  the  major  subroutines  in  POTEN  described  above  are 
documented  in  detail.  They  are  all  structured  around  the  multiple  GO  TO 
statement  of  the  form 

GO  TO  (#1,  #2,  #3 .  n)  BRANCH 

with  #1  through  #n  FORTRAN  statement  numbers,  and  the  BRANCH  #  an  index 
such  that  BRANCH  #  =  n  transfers  control  to  Statement  #n.  The  BRANCH 
is  input  by  the  user  following  an  appropriate  program  prompt.  The  branch 
numbers  are  keyed  to  various  computations  which  may  be  accessed  at  the 
user's  option.  The  keys  are  listed  later  in  this  section,  and  short 
versions  of  them  may  be  obtained  on  the  terminal  any  time  the  program 
prompts  the  user  for  branch  number  input,  by  typing  0/. 

Within  each  branch  there  may  be  options  which  are  accessible  by 
varying  parameters  input  by  the  user  at  the  time  the  branch  number  is 
input.  These  options  are  also  listed  in  the  branch  keys. 

In  addition  to  input  parameter  options,  there  is  an  array  called 
ISSW  with  16  elements  found  in  both  programs.  Within  the  different 
branches,  different  elements  of  ISSW  may  be  tested  for  values  of  -1  or  0, 
and  options  either  accessed  or  skipped  depending  upon  the  value.  In 
general,  ISSW  elements  determine  whether  a  given  type  of  output  is 
generated.  (Historically,  the  ISSW  array  derives  from  the  binary 
switches  available  on  the  shipboard  computer,  the  HP2100  series.)  The 
elements  of  ISSW  may  be  altered  by  accessing  the  appropriate  branch  in 
both  POTEN  and  PEPLT  as  described  below. 

As  described  earlier,  POTEN  is  accessed  as  a  short  main  program 
which  initializes  parameters  if  requested  by  the  user,  or  reads  from  a 
binary  file  KPTCM.DAT  the  most  recently  stored  parameters,  if  no 
initialization  is  requested.  The  main  program  POTEN  then  transfers 
control  to  the  major  subroutine  PTENS  which,  as  shown  in  the  schematic 
Fig.  1,  controls  the  various  branches  available  to  the  user.  PTENS  is 
the  only  component  of  POTEN  in  which  branches  may  be  accessed.  The  two 
remaining  major  subroutines  are  COMPS,  in  which  the  regressions  are 
performed,  and  AVRCP,  in  which  the  horizontal  averaging  is  performed. 
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This  subsection  charts  the  branches  available  to  the  user  in 
detail,  and  describes  briefly  the  working  of  COMPS  and  AVRCP.  Short 
versions  of  the  branch  documentation  are  found  in  the  Appendix,  and  may 
also  be  printed  on  the  screen  while  the  program  is  (interactively)  on 
line  by  typing  0/  whenever  the  program  prompts  for  branch  input. 

2a.  Main  Program: 

The  main  program  queries  the  user  'Initialize  common  (YES  or 
NO)?'.  A  NO  response  causes  the  present  elements  of  KPTCM.DAT,  the 
binary  storage  file,  to  be  read  into  common.  (If  no  file  KPTCM.DAT 
exists  in  the  directory,  the  program  will  create  a  new  file  named 
KPTCM.DAT,  but  if  the  response  to  the  initialization  query  was  NO,  an 
'end  of  file  during  read'  error  will  result.  Therefore,  the  proper 
sequence  of  commands  to  create  a  new  KPTCM.DAT  file  is  to  run  POTEN, 
respond  YES  to  the  initialization,  thereby  creating  a  new  KPTCM.DAT,  but 
not  attempting  to  read  from  it.  Later  in  the  program  (in  branch  3) 
common  may  be  stored  to  the  newly  created  file,  for  use  next  time  the 
program  is  run.)  A  YES  response  initializes  the  data  selection 
parameters  (subroutine  DATA),  and  certain  other  parameters  not  related  to 
the  regressions. 

Following  this  query,  control  is  transferred  to  PTENS,  and  the  user 
is  asked:  'Initialize  regression  parameters  (YES  or  NO)?'.  A  YES 
response  initializes  the  regression  parameters.  A  NO  response  reads  them 
from  KPTCM.DAT.  (Again,  with  a  newly  created  KPTCM.DAT  file,  the  correct 
response  is  YES.)  Finally,  PTENS  asks  for  the  resolution  of  the  input 
data,  before  going  to  branch  mode.  At  this  point  the  user  may  input  up 
to  7  variables,  as  listed  in  the  program  prompt.  The  current  values  of 
the  variables  are  printed  on  the  screen  along  with  the  prompt  list.  The 
variables  are:  KBR,  the  branch  number;  ISW  and  JSW,  which  may  access 
different  options  in  branch  KBR;  KLIST,  usually  the  list  output  logical 
device  number  (reset  to  6  each  time  the  prompt  is  printed);  KOUT  and  KTP, 
the  data  output  and  input  logical  device  numbers  (note  that  the  program 
uses  named  files  for  data  input  and  output  via  OPEN  statements  which  use 
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KTP  and  KOUT  as  unit  numbers  );  KIN,  the  program  input  device  for  screen 
or  command  file.  (Changing  the  value  of  KIN  to  6  part  way  through  a  COM 
file  transfers  control  to  the  screen,  allowing  interactive  mode  —  see 
Appendix  A  for  an  example  command  file,  POTEN.COM.) 

2b.  Branches  (KBR) 

0:  Short  documentation  printed  on  screen.  See  Appendix  B  for  a 
listing  of  this  documentation. 

SUMMARY  -  POTEN.'PTENS:  KBR  =  0 

Function:  List  on  terminal  the  short  documentation  for  PTENS 

ISW,  JSW  options:  None 

Output  device:  unit  KTTX 

Input  device:  None 

ISSW  options:  None 

1:  Calls  COMPS  subroutine,  which  performs  the  following  sequence: 

a.  Calls  subroutine  DATA,  which  opens  the  subindex  directory 
for  the  default  file  specifications  of  the  input  data.  (Those 
specifications  may  be  changed  by  calling  KBR  »  13,  which  is 
identical  to  branch  1  except  for  allowing  file  specifications  to 
be  changed.)  Then  the  header  for  the  ISWth  sequential  station 
in  that  subindex  file  is  examined  to  see  if  it  meets  data 
selection  criteria.  If  so,  a  file  name  is  written  to  file 
corresponding  to  logical  unit  12.  Throughout  this  report  that 
file  is  called  JSHP.PTN;  an  example  is  given  in  Table  3.  The 
temperature  and  salinity  data  are  transferred  to  array  DATAX, 
using  Millard  subroutine  GETDAT.  Pressure  is  stored  in  the 
zeroth  element  of  DATAX,  which  is  equivalenced  to  array 

PRESS.  PRESS  is  used  throught  COMPS  and  AVRCP.  The  total 
number  of  scans  (NTOT)  is  also  noted.  The  above  occurs  in 
subroutine  DATA,  after  which  control  returns  to  COMPS. 

b.  COMPS  then  sets  up  the  regression  for  the  first  interval 
using  parameters  which  may  be  changed  using  branch  3  and 
continues  the  computation  through  all  the  intervals  requested. 


16 


TABLE  3 

Example  of  a  JSHP.PTN  file  generated  by  COMPS 


Consec. 

Station  I.D. 

Weight 

Number 

1 

GY001Q02 

1.0 

2 

GY001003 

1.0 

3 

GY001004 

1.0 
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or  until  the  end  of  the  data  (determined  by  NTOT)  is  reached. 

For  each  interval  potential  temperature  and  steric  anomaly 
referred  to  (the  level  pressure)  are  calculated  for  each 
data  scan  to  be  used  in  the  regression.  Potential  temperature 
is  calculated  according  to  Fofonoff  (1977),  using  the  polynomial 
formula  of  Bryden  (1973)  for  the  adiabatic  temperature 
gradient.  Steric  anomaly  6  is  calculated  as: 

6  =  105  x  (a(p,e(p,T,S,pf),  6)  -  a(p,0,35) ) 
with  a  the  specific  volume  calculated  according  to  the  SCOR 
Working  Group  51  new  equation  of  state  for  seawater  (Mi llero,  et 
al,  1980),  for  which  an  algorithm  is  given  by  Fofonoff  (1981). 
Within  each  interval  an  editing  process  occurs  in  which  points 
exceeding  three  standard  deviations  of  the  regression  estimate 
at  a  given  steric  anomaly  are  flagged.  Temperature  and  saliity 
are  then  regressed  against  pressure  over  the  interval.  Any 
points  in  T  or  S  which  exceed  three  standard  deviations  are 
replaced  by  the  regression  estimate.  The  regression  of  steric 
anomaly  is  performed  again  and  rechecked.  The  number  of 
standard  deviations  for  both  tests  may  be  changed  —  see 
KBR  =  3.  The  interpolated  scans  are  printed  out  on  unit  KLIST 
and  data  scans  which  are  flagged  but  not  interpolated  are  also 
listed  as  such  on  KLIST  if  ISSW  (3)  is  set  to  -1.  (ISSW  values 
may  be  changed  using  branch  5.)  Pressure  p  and  potential 
temperature  e  (referred  to  the  level  pressure  p^)  are 
regressed  against  steric  volume  anomaly  (also  referred  to 
Pf)  and  the  coefficients  for  both  p  and  e  are  stored  in 
arrays  CP  and  CT  for  each  interval.  Data  output  occurs  if 
ISSW  (13)  =  -1,  and  is  written  into  a  file  with  the  name  *.REG, 
where  *  identifies  the  station,  a  two  character  (alpha)  ship 
name,  a  3  digit  cruise  number  and  a  3  digit  station  number.  The 
format  of  the  ouput  file  is  a  header  of  150  words  equivalenced 
to  an  1*4  array  followed  by  a  variable  number  of  data  records 
(each  46  words,  also  an  1*4  array),  one  record  per  level 
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TABLE  4 

POTEN  Data  Output  Variables 


HEADER  RECORD: 

VARIABLE 

150  WORDS 

NAME 

DESCRIPTION 

LTYPE 

Identifies  record  as  header  record  (LTYPE  =  1) 

MHDR 

Number  of  elements  in  header 

ICON 

Sequential  number  of  station  (in  POTEN  calculation) 

ISHP 

Ship  name  (A2  format) 

KCAST 

Station  number 

I  DAY 

Julian  year  day 

I  PR 

First  pressure 

LPR 

Last  pressure 

XL  AT 

Latitude  of  station 

XLONG 

Longitude  of  station 

WGT 

We i ght 

XLTJD 

Latitude  of  origin  for  distance  computations  in 
kilometers  (negative  for  south  latitude) 

XLG0 

Longitude  of  origin  (negative  for  west) 

LBBL (3) 

Short  station  label  (3A4  formt) 

LBL (13) 

Run  identification  label  (13A4  format) 

NSC (60) 

Regression  parameters  j  $ee  text 

Regression  parameters 

NPR  ( 60 ) 

NSECTION 

Number  of  sections  in  the  water  column 

DATA  RECORD:  46  WORDS 

KTYPE 

Identifies  record  as  data  record  (KTYPE  *  0) 

MBUF 

Number  of  elements  in  data  record 

IREC 

Level  number 

N 

Polynomial  order 

NDP 

Number  of  data  scans  used  in  regression 

KSW 

Not  used 
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TABLE  4  (continued) 


NAME 

LI 

L2 

PF 

T0,S0,OV0 


PI 

THF 

DVI 

DVF 

PM,THM,SM,DVM 

DH 

PE 

XPE 


CP(  8) 

Z1 

CT{8) 

Z2 

F1,F2,F3 

XLT0: 

XLG0: 


DESCRIPTION 

Not  used 
Not  used 
Level  pressure 

Temperature,  salinity  and  steric  anomaly  from  input 
data,  averaged  about  PF  ±  POIFF  (see  branch  3 
description  and  Table  5) 

Pressure  of  the  reference  steric  anomaly  (DVF)  in  the 
unleveled  or  initial  field 
Local  potential  temperature  (referred  to  PF)  as 
estimated  by  the  regressions:  e^(P^) 

Steric  anomaly  corresponding  to  PF  in  the  initial  field 
Steric  anomaly  corresponding  to  PF  in  the  leveled  field 
Average  of  pressure,  potential  temperature,  salinity 
and  steric  anomaly  over  the  regression  interval, 
da/dp  based  on  the  averaged  regression  coefficients 
Potential  energy  anomaly  j  Recommended  that 

Horizontally  average  PE  these  not  be  used, 

but  calculated  in 
PEPLT 

Pressure  vs.  steric  anomaly  coefficients 
Standard  deviation  of  regression  pressure  estimate 
(Fofonoff  and  Bryden,  1975) 

Potential  temperature  vs.  steric  anomaly  regression 
coefficients 

Standard  deviation  of  regression  temperature  estimate 
Steric  volume  minimum,  maximum  and  average  over 
regression  interval 

Latitude  of  origin:  default  is  40.0 

Longitude  of  origin:  default  is  -70.0 
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Pf.  The  output  is  in  binary  (unformatted)  files.  The  variables 
output  are  identified  in  Table  4.  Some  information  at  each  level  may 
be  output  to  unit  KLIST  if  ISSW  (12)  =  -1,  for  purposes  of  checking. 
Header  information  is  ouput  to  unit  KLIST  if  ISSW  (11)  =  -1.  The 
input  data  scans  are  output  to  unit  KLIST  if  ISSW  (5)  =  -1  and  the 
regression  coefficients  and  residuals  are  output  to  unit  KLIST  if 
ISSW  (10)  =  -1.  If  ISSW  (6)  =  -1  statistics  of  the  coefficients  are 
printed  on  unit  KLIST.  The  ratio  of  each  coefficient  to  its  standard 
deviation  (see  Fofonoff  and  Bryden,  1975,  Appendix)  is  computed.  For 
an  infinite  number  of  degrees  of  freedom,  at  95%  confidence  that 
ratio  should  equal  or  exceed  1.96.  The  statistic  which  is  listed  is 
(a^  the  coefficients): 

ai 

std  dev  (a.)  ' 


When  stations  with  subindex  reference  number  (sequential  number) 
ISW  through  JSW  have  been  tested  for  data  selection  criteria  and 
either  been  skipped  or  have  gone  through  the  regression 
calculation,  COMPS  returns  control  to  PTENS. 


SUMMARY  -  POTEN: PTENS:  KBR  =  1 

Function:  calls  COMPS  subroutine 

ISW,  JSW  Options:  ISW  to  JSW  are  the  station  reference  numbers 
data  goes  automatically  to  *.REG  file  if 
ISSW  (13)  =  -1;  other  information  output  goes 
to  unit  KLIST,  as  requested  by  elements  of  ISSW 
3  =  -1  Print  out  interpolated  scans 

5  =  -1  Print  out  input  data  scans 

6  =  -1  Print  out  coefficient  statistics 

10  =  -1  Print  out  regression  coefficients  for 
each  scan 

11  =  -1  Print  out  header  information 

12  =  -1  Print  out  selected  data  following 
regression 


Output  device: 


ISSW  options: 
(to  unit  KLIST) 
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13  =  -1  Data  output  to  *.REG 

2:  Initializes  data  selection  parameters  described  in  Table  5 
SUMMARY  -  POTENrPTENS:  KBR  =  2 

Function:  Initialize  data  selection  parameters 
ISW,  JSW  Options:  None 
Output  device:  None 
ISSW  Options:  None 

3:  Changes  or  lists  regression  and  data  selection  parameters 
described  in  Table  5.  The  data  selection  parameters  are 
straightforward.  For  the  regression  parameters  the  water  column 
is  divided  into  a  maximum  of  nine  sections,  each  of  which  may 
have  a  number  of  levels  whose  regression  parameters  are  the 
same.  The  regression  parameters  consist  of  the  total  number  of 
sections;  in  each  section,  the  interval  between  leveled  surfaces, 
the  interval  over  which  the  regression  is  performed,  the 
polynomial  order,  and  start  and  end  pressures  for  the  section. 

All  of  these  parameters  are  input  using  subroutine  PARAM,  which 
branch  3  calls.  The  prompts  are  (hopefully)  self-explanatory. 
After  parameters  have  been  entered  for  all  sections,  PARAM 
translates  them  into  internal  parameters  which  control  the  way 
the  program  performs  the  regressions.  These  internal  parameters 
are  stored  in  arrays  NPR  and  NSC.  Since  the  arrays  NPR  and  NSC 
are  included  in  common  stored  to  KPTCM.DAT,  the  user  form 
parameters  need  be  entered  only  once,  until  a  change  is 
required.  The  old  parameters  may  be  retrieved  by  responding  'NO' 
to  the  initial  query  in  PTENS  'Initialize  regression 
parameters?'.  Stored  common  is  written  to  KPTCM.DAT  at  the  end 
of  branch  3,  so  any  changes  in  regression  parameters  will 
overwrite  the  most  recent  ones  in  KPTCM.DAT,  provided  branch  3  is 
completed.  It  is  not  possible  to  change  only  a  single  regression 
parameter;  if  a  change  is  required,  all  the  parameters  must  be 
re-entered.  (This  is  because  the  internal  parameters  NPR  and  NSC 
have  elements  whose  value  depends  upon  parameters  for  more  than 
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TABLE  5 

POTEN  Parameters:  Branch  KBR  =  3 


Parameter 

ICON 


KSW 

A2 


A3 


WGT 

PDIFF 

DELP 


Definition 
Consecutive  number 


Not  used 

Number  of  standard  deviations 
allowed  for  a  regression  point 
in  p(«)  before  flagging. 

Numbe  '  of  standard  deviations 
allowed  for  a  regression  point 
in  T(p)  and  S(p)  before 
interpolation 
Weight 

Interval  (db)  about  Pf  for 
averaging  Tf),S0,P0 
Pressure  series  interval  for 
input  CTO  data  (db) 


Default  if  Initialized 
1  for  first  station. 
Increments  with  stations 
processed 

1 

3. 


3. 


1. 


6. 


2. 


REGRESSION  Parameters  —  as  described  in  program  prompts 

Data  selection  parameters:  windows  such  that  data  inside  all  windows  is 

accessed;  all  other  data  skipped 


IDAY1 

Minimum  Julian  year  day 

0 

IDAY2 

Maximum  Julian  year  day 

365 

JDO 

Additive  constant  to  actual  day 

0 

XEMN 

Minimum  longitude 

-180.0 

XEMX 

Maximum  longitude 

180.0 

XMN 

Minimum  longitude 

-  90.0 

XNMX 

Maximum  latitude 

90.0 
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one  section.  PARAM  requires  that  parameters  be  input 
sequentially.)  It  is  not  necessary  to  understand  how  NPR  and  NSC 
work  in  order  to  run  the  program  (that  is  the  purpose  of  the 
PARAM  subroutine);  however,  modifications  of  the  program  may 
require  that  the  programmer  know  how  these  arrays  function.  A 
brief  description  is  therefore  presented  here.  The  pressure 
Pf  for  each  level  is  given  by: 

For  IREC  less  than  NPR(section  #) 

PF  =  NPR(section  #  +  total  number  of  sections)  x 
(IREC  -  NPR(section  #  +  2  x  total  number  of  sections)) 

NPR  (section  #  +  total  number  of  sections)  contains  the 

interval  between  pressure  levels;  NPR(section  #  +  2  x  total 
number  of  sections)  contains  an  index  which  allows  the  correct 
Pf  to  be  determined,  while  NPR(section  #  )  contains  the  level 
number  at  which  the  section  commences.  Some  care  should  be  taken 
to  assure  that  the  parameters  input  are  consistent. 

Specifically,  the  first  level  of  a  new  section  must  have  a 
pressure  pf  such  that  p^  is  some  integral  multiple  of  the 
pressure  interval  between  leveled  surfaces  in  that  section.  The 
use  of  the  total  number  of  sections  allows  the  program  to  treat 
NPR  as  a  variable  length  two-dimensional  array,  even  though  it  is 
in  fact  singly  dimensioned.  Subroutine  PARAM  adds  an  additional 
'dummy'  section  below  those  input  by  the  user  to  assure  that 
COMPS  does  not  continue  below  the  desired  depth.  Thus,  the  total 
number  of  sections  (NSECTION)  will  always  be  one  greater  than  the 
number  input  by  the  user. 

Array  NSC  contains  the  remainder  of  the  parameters:  start 
pressure  in  NSC(section#  ),  polynomial  order  in  NSC(NSECTION  + 
section  #),  number  of  data  scans  in  the  regression  interval  in 
NSC(2*NSECTI0N  +  section  #). 

SUMMARY  -  POTEN-.PTENS:  KBR  =  3 

Function:  Change  or  list  regression  and  data  selection  parameters 
ISW,  JSW  Options:  ISW  =  0:  short  list  only 
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ISM  =  1:  full  list 
JSW:  no  options 

Input  device:  unit  KIN 
Output  device:  unit  KLIST 
ISSW  Options:  None 

4:  Call  AVRCP  -  averaging  subroutine.  The  pressure  and  potential 
temperature  coefficients  from  the  regressions  performed  in  COMPS 
are  averaged  horizontally,  level  by  level.  The  average  pressure 
polynomial  at  each  p^  is  set  equal  to  pf 
(corresponding  to  a  mass  conservation  constraint  between  the 
initial  and  leveled  fields)  and  the  resultant  polynomial  is 
inverted  to  obtain  the  reference  steric  anomaly  («^) 
corresponding  to  that  p^.  (See  Bray  and  Fofonoff,  1981  for 
a  more  detailed  discussion.) 

The  averaging  is  actually  done  in  two  'passes'  through  the 
data,  but  a  single  call  to  AVRCP  with  ISSW (7)  *  0  will 
automatically  average  and  output  new  station  data  files  based  on 
the  leveled  field.  (Data  ouput  occurs  if  ISSW(13)  =  -1,  as  in 
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COMPS.  The  new  files  are  called  *.AVG  with  *  as  before  the 
station  identifier.)  Information  about  the  averaged  pressure 
coefficients  is  output  to  unit  KLIST  if  ISSW(12)  =  -1. 

Information  about  the  averaged  steric  field  is  output  to  unit 
KLIST  if  ISSW(ll)  =  -1. 

The  two  averaging  'passes'  may  be  accessed  individually,  and 
separately  from  the  data  ouput  by  setting  ISSW ( 7 )  =  -1  and 
entering  K8R  =  4,  ISW  =  1  for  the  first  pass,  K8R  =  4,  ISW  =  2 
for  the  second  pass  and  KBR  =  4,  ISW  *  3  to  output  the  new 
station  data  files.  However,  since  the  second  pass  must  be 
performed  directly  after  the  first,  and  the  output  directly  after 
the  averaging  it  is  recommended  that  the  automatic  access  be  used 
{ ISSW (7)  =  0).  If  no  output  is  desired,  ISSW(13)  should  be  set 
to  0. 

SUMMARY  -  POT£N:PTENS:  KBR  =  4 

Function:  Call  AVRCP  averaging  subroutine 


ml 
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ISW,  JSW  options:  If  ISSW{ 7)  =  -1 


If  ISSW ( 7 )  =  0: 


ISW  =  1:  First  averaging  pass 
ISW  =  2:  Second  averaging  pass 
ISW  =  3:  Output  of  data  to 
*.AVG  files  if 
ISSW (13)  =  -1 

ISW  =  1:  Averaging  and  output 
performed 
automatical ly. 


Input  files: 
Output  files, 
Output  files, 
ISSW  Options: 


*.REG 

data:  J  .AVG 

lists:  unit  KLIST 

ISSW(7)  =  -1:  individual  access  of  averaging  passes 
ISSW (11)  =  -1:  List  of  averaged  steric  field  on 


unit  KLIST 


ISSW(12)  =  -1:  List  of  averaged  pressure 
coefficients  on  unit  KLIST 
ISSW ( 13)  =  -1:  Leveled  field  based  data  output  to 
*.AVG  files 


5:  Not  used 

6:  Print  data  label.  This  label  is  input  by  the  user  in  branch  3, 

and  is  carried  in  both  the  *.REG  and  *.AVG  files  as  an  identifier 
of  the  group  of  stations,  the  version  of  the  POTEN  run,  etc.  Its 
format  is  13  A4  or  a  total  of  52  characters.  Branch  6  lists  this 
label  to  unit  KLIST. 

SUMMARY  -  POTEN :PTENS:  KBR  =  6 


Function:  Write  data  label 
ISW,  JSW  options:  None 
Output  device:  unit  KLIST 

ISSW  options:  None 

7:  Not  used 

8:  Write  header  record  to  unit  KLIST:  Station  label,  position, 

origin,  LTYPE,  MHDR,  ICON,  ISHP,  ICAST,  JDAY,  IPR,  LPR.  This  is 
also  done  automatically  in  subroutine  DATA  when  COMPS  accesses  the 
station,  provided  ISSW (11)  *  -1. 
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SUMMARY  -  POTEN:PTENS:  KBR  =  8 

Function:  Write  station  header  information 
ISW,  JSW  options:  None 
Output  device:  unit  KLIST 

ISSW  options:  None 

9:  Write  *.REG  or  *.AV6  single  data  record  to  unit  KLIST.  Of 

doubtful  usefulness,  this  branch  was  part  of  the  original  program. 
SUMMARY  -  POTEN: PTENS:  KBR  =  9 

Function:  Write  single  output  data  record  to  unit  KLIST 
ISW,  JSW  options:  None 
Output  device:  unit  KLIST 

ISSW  options:  None 

10:  Not  used 

11:  Set  the  values  of  the  ISSW  array.  One  call  allows  up  to  16 

inputs.  Each  input  consists  of  element  number  followed  by  a  comma 
and  the  value  to  assign  to  that  element.  Whenever  input  is 
complete,  if  less  than  16,  the  branch  may  be  terminated  with  a  /. 
SUMMARY  -  POTEN: PTENS:  KBR  =  11 

Function:  Set  ISSW  array 
ISW,  JSW  options:  None 
Output  device:  unit  KTTX 

Input  device:  unit  KIN 

ISSW  options:  None 

12:  Exit  program.  Program  queries  'Exit  program  '.  A  YES  response 
results  in  a  FORTRAN  stop  statement  execution.  A  NO  response 
returns  the  PTENS  branch  prompt. 

SUMMARY  -  POTEN.-PTENS:  KBR  =  12 
Function:  Exit  program 
Input  device:  unit  KIN 

If  a  value  of  KBR  greater  than  12  or  less  than  0  is  entered,  the  short 
documentaton  is  printed  on  the  screen. 


3.  PEPIT  (Documentation 


Like  POTEN,  PEPLT  is  accessed  through  a  short  main  program,  which 
initializes  parameters  as  requested  by  the  user,  and  then  transfers 
control  to  a  major  subroutine,  PEPLS.  From  PEPLS,  the  user  may  call 
subroutine  TABLE,  which  plots  and  lists  station  by  station,  and 
subroutine  AVR6S  which  computes  and  displays  horizontally  averaged 
quantities  as  a  function  of  depth.  Subroutine  AVRGS  has  its  own  set  of 
internal  branches,  one  of  which  returns  program  control  to  PEPLS. 
Subroutine  TABLE  has  no  internal  branches.  As  in  POTEN,  short 
documentation  can  be  displayed  on  the  screen  while  the  program  is  running 
interactively,  by  typing  tl  as  a  response  to  branch  prompts  in  either 
PEPLS  or  AVRGS. 

3a.  Main  Program:  PEPLT 

The  main  program  queries  'Load  in  previously  stored  common?'.  A 
YES  response  causes  the  elements  of  the  binary  array  KPLCM.DAT  to  be  read 
into  common,  beginning  with  the  common  element  KTTX.  a  'NO'  response 
causes  no  action  by  the  program.  Control  is  then  transferred  to 
subroutine  PEPLS. 

3b.  Branches  -  PEPLT 

1:  Calls  subroutine  TABLE.  TABLE  plots  and  lists  station  by 

station.  It  also  outputs  requested  information  in  a  format 
appropriate  as  input  to  objective  mapping  programs.  The  plot 
section  of  TABLE  is  designed  to  permit  a  number  of  stations  to  be 
plotted  on  the  same  frame,  with  the  origin  of  each  station  within 
the  larger  frame.  Examples  are  shown  in  Fig.  4.  In  Fig.  4a  the 
buoyancy  frequency  N  is  plotted  as  a  function  of  geographical 
position  (relative  to  an  origin  at  37*N,  69.65*W),  the 
coordinates  of  the  frame;  and,  for  each  station,  as  a  function  of 
depth,  where  the  station  axes  represent  0  to  3000  db  vertically 
and  -3  to  3  cph  horizontally.  This  is  accomplished  by  scaling 
the  buoyancy  frequency,  and  adding  it  to  the  X-coordinate  (in 
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Figure  4:  Example  plots  from  TABLE.COM 
4a.  Buoyancy  Frequency,  N  in  cph.  Inset  axes  represent  *3  cph 

(horizontal),  0  to  3000  db  in  pressure  (vertical).  The  origin  on  the 
inset  axes  (0,0)  represents  the  station  location. 
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LDE  FS5  VERTICAL  DISPLACEMENTS.  DB 


KM  EAST  0F  0RIGIN 


4b.  Vertical  displacement  ir  in  db.  Inset  axes  represent  *100  db 
(horizontal)  and  0  to  3000  db  (vertical). 
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this  example,  kilometers  east  of  the  origin)  and  scaling  the 
pressure  and  subtracting  from  the  Y-coordinate  (here  km  north  of 
the  origin).  The  program  allows  up  to  four  variables  to  be 
included  in  such  a  sum  for  X  and  Y.  The  length  of  the  station 
axes  are  determined  by  the  variables  X2DIM  and  Y2DIM,  which  are 
input  in  user  units  (i.e.  cph  in  Fig.  4a)  for  the  variables  being 
plotted.  In  the  example,  Y2DIM  is  3000  (db)  and  X2DIM  is 
3  (cph).  One  frame  is  created  for  each  call  to  TABLE;  it  will 
encompass  ND  station  plots.  The  plot  parameters  may  be 
initialized  by  calling  TABLE  (KBR  =  1)  with  ISW  >  2.  Control 
then  returns  to  PEPLS.  Plot  parameters  may  be  changed  by  calling 
TABLE  with  ISW  =  1.  Control  again  returns  to  PEPLS.  Plotting 
commences  only  when  TABLE  is  called  with  ISW  =  0.  Figure  4b  is 
the  same  type  of  plot  as  4a,  with  vertical  displacements  plotted 
instead  of  N.  Both  of  these  plots  were  created  using  the 
documented  command  file  TABLE.COM  found  in  Appendix  A. 

A  number  of  variables  relating  to  the  leveled  field,  the  inital 
field,  and  the  location,  and  time  of  each  station  may  be  examined 
using  PEPLT.  A  list  of  these  variables  is  found  in  Table  6;  they 
are  computed  in  function  subroutine  VRBL,  coded  by  number.  Thus 
a  call  to  VRBL  (3)  returns  the  latitude  of  the  station  being 
examined  (variable  XLAT).  Subroutine  TABLE  plots  the  following 
for  x  and  y: 

x  =  A1*VRBL(NX1)  +  A2*VRBL(NX2)  +  A3*VRBL(NX3) 
+  A4*C(IREC,1) 

y  =  B1*VRBL(NY1)  +  B2*VRBL(NY2)  +  B3*VRBL(NY3) 
+  B4*C(IREC,2) 

Here  C(IREC,n)  refers  to  an  array  which  may  be  filled  using  AVRGS 
subroutine  (see  branch  4).  A1  to  A4,  Bl  to  B4,  NX1  to  NX3,  and 
NY1  to  NY3  may  be  changed  by  accessing  branch  3.  The  default 
values  (initialized  by  KBR  =  1,  ISW  *  2)  are: 
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TABLE  6  —  PEPLT  Variables 

(Nomenclature  follows  that  of  Bray  and  Fofonoff,  1981) 


VARIABLE 

NUMBER 

NAME  or 

SYMBOL 

UNITS 

DESCRIPTION 

-1 

1 

None 

Returns  the  number  1  (counts 

number  of  observations  at 

each  level). 

4 

4 

None 

Returns  4 

1 

XPL 

km 

Zonal  distance  from  origin 
(XLT0.XLG0) 

2 

YPL 

km 

Meridional  distance  from 

origin 

3 

XLAT 

degrees 

Signed  decimal  latitude 
(south  negative) 

4 

XLONG 

degrees 

Signed  decimal  longitude 
(west  negative) 

5 

ICON 

None 

Consecutive  station  number  in 

POTEN  computation 

6 

WGT 

None 

Averaging  weight 

7 

JDAY 

days 

Julian  year  day 

8 

ISHP 

None 

Ship  code 

9 

I  CAST 

None 

Station  number 

10 

N 

None 

Polynomial  order 

11 

NOP 

None 

Number  of  data  scans  in 

regression  interval 

12 

PF 

db 

Level  pressure 

13 

1  M 

T0 

1 

T,  S,  6  averaged  over  the 

14 

S0 

ppt  1 

10“^cnr*»gm“^ 

interval  PF  *  PDIFF 

15 

OV0 

16 

PI 

db 

Pressure  of  reference  steric 
anomaly  («^)  in  the 
initial  field 
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TABLE  6  (Continued) 


VARIABLE 

NUMBER 

NAME  or 

SYMBOL 

UNITS 

DESCRIPTION 

17 

THE 

Cc 

Local  potential  temperature 
referred  to  PF.  (See  65.) 

18 

OVI 

Kf^cm3*gm-* 

Initial  steric  anomaly 

on  PF 

19 

DVF 

10-^cm^*gm_^ 

Reference  steric  anomaly  («f) 
on  PF 

20 

PM 

db  ' 

\  Pressure,  local  e,  salinity 

21 

THM 

°C 

and  steric  anomaly  referred  to 

22 

SM 

ppt 

1  Pf  averaged  over 

23 

DVM 

10"5cm3*gm_1> 

regression  interval 

24 

a  * 

Pf 

10~5cm3,gm~^db~3 

d«/dp  based  on  averaged 
regression  coefficients 

25 

X 

Potential  energy  anomaly 
calculated  by  POTEN 

26 

APE 

APE  calculated  by  POTEN 

27  to  34 

CP(1)  to  CP(8) 

(db)"1 

Regression  coefficients  for 

pressure 

35 

Z1 

db 

Standard  deviation  of 
pressure  regression  estimate 

36  to  43 

CT(1)  to  CP(8) 

Cc)’1 

Regression  coefficients  for 
local  potential  temperature 

44 

Z2 

'c 

10_5cm3 .gm"1 

Standard  deviation  of  local 

potential  temperature 
regression  estimate 

46,47,48 

F1,F2,F3 

Minimum,  maximum  and  average 
values  of  steric  anomaly  over 
regression  interval 
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TABLE  6  (Continued) 


VARIABLE 

NAME  or 

UNITS 

DESCRIPTION 

NUMBER 

SYMBOL 

48 

»* 

db 

'Boussinesq'  displacements: 

49 

PI* 

db 

"*  =  -(«i  -  «i)/(^)* 

IT*  +  PF 

50 

IT 

db 

Displacement  of  initial  field 

from  reference  field  PI-PF. 

51 

A6 

lO^cm^gnT* 

Positive  implies  downward. 

«1  -  6f 

52 

Vortex  stretching 

db 

„TV  Sin(XLAT) 

PIX  TTHffiw 

53 

APE| 

g 

'Boussinesq'  APE  with  true 

displacements 

1  *  2 
"2g  V 

54 

55 

APEg 

g 

gPFaD  -  PE 

Boussinesq  APE  with 

(10“^cm^*gm~^)"^db 

Boussinesq  displacements 

1  *  *2 
-  7g  “p** 

56 

E0 

Inverse  of  local  specific 

volume  gradient  with  pressure 

57 

1/E0 

(10_^cirr**gnf*)db-* 

Local  specific  volume  gradient 
with  pressure 

58 

N2 

10“®(rad  •  sec-^)2 

Squared  buoyancy  frequency 

59 

6P 

*C  db-1 

Potential  temperature  gradient 
de^ 

w 

% 

— 

TABLE  6  (Continued) 


VARIABLE 

NAME  or 

UNITS 

DESCRIPTION 

NUMBER 

SYMBOL 

60 

s„ 

ppt  db“* 

Salinity  gradient 

P 

dSf 

dp 

61 

Sf 

ppt 

Salinity  corresponding  to 
®f»  Pf»  6f 

62 

dSf 

de^ 

PPtfC)-1 

Gradient  of  salinity  with 
potential  temperature 

63 

„2 

(db)2 

Squared  displacement  of 
initial  field  from  reference 

field 

64 

N 

cph 

Buoyancy  frequency 

65 

*C 

Potential  temperature  at 

T 

referred  to  zero 

pressure 

66 

ae 

lO^gm-cm”  3 

3  -1 

cm  *gm 

Sigma  theta  of  Pf, 

Sf,  Of 

67 

I  4 

af 

Specific  volume  anomaly  in 

reference  field 

1  p  2 

Vertical  gradient  of 

68 

~  7  rk* 

compressibi lity  contribution 

to  GPE 

69 

Not  used 

70 

rk 

10"5cm3-  gm-1*db2 

_  (if.)  (see  Bray  and 

<JjT  vap'a  ' 

Fofonoff,  1981) 
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TABLE  6  (Continued) 


VARIABLE 

NAME  or 

UNITS 

DESCRIPTION 

NUMBER 

SYMBOL 

72 

&Sf 

ppt 

Salinity  anomaly  from  cubic 
spline  fit  to 
Worthington-Metcalf  and 

Iselin  e-s  curves 

aS(p^,6^-,S^) 

(Armi  and  Bray,  1981) 

73 

aSi 

ppt 

Same  as  72  but  using  the 

initial  field 
&S(Pife(TQf),S(0) 


74 

•f 

r  c)2 

UO"4  J-kg'1)2 

Leveled  field  potential 
temperature  squared.  (Used 
in  calculating  horizontal 
standard  deviation  using 
AVR6S  branch  ISW  =  21.) 

75 

RME 

Random  measurement  error 

(based  on  pressure  error  of 
±5db  magnitude,  temperature 
error  of  ,007*C,  salinity 
error  of  .005  ppt)  for  APE. 
See  Bray  and  Fofonoff,  1981 
Appendix,  for  details  of 

error  calculations. 

V(ap**2/2) 

76 

Not  used 

77 

RFE 

(10"4  J-kg"1)2 

Same  as  78  but  ir 

78 

RFE* 

(lO"4J-kg-1)2 

Random  finestructure  error: 

(based  on  3xZl  as  error  in 
**):  V(op*w*2/2) 
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TABLE  6  (Continued) 


VARIABLE 

NAME  or 

UNITS 

DESCRIPTION 

NUMBER 

SYMBOL 

79 

RME 

(10-4  J-kg-1)2 

(10-4  J-kg-1)2 

Same  as  75  but  pressure  error 
only 

80 

RFEC 

Random  f inestructure  errors  in 

the  vertical  compressibility 
term  (must  be  integrated 
using  AVRGS  branch  ISW  =  17) 

V(  rk*2/2 

81 

RMEC 

(10-4  J-kg-1)2 

Random  measurement  error  in 

the  vertical  compressibility 
term  (pressure  error  only) 

82,83 

Not  used 

10-5cm3-  gm-1*db-1 

84 

K 

*v  JC 

Compressibility  (— )a 

85 

Ks 

10-3cm3-  gm-1-ppt-1 

Derivative  of  specific  volume 

with  respect  to  salinity; 
temperature  and  pressure  held 

constant: 

P,T 

86 

K  IT 

Contribution  to  GPE  from 

horizontal  gradients  of 
compressibility 

87 

APEg 

10-4  J*kg-1 

'Boussinesq'  APE  per  unit 
mass  with  true  displacements 

88-90 

Not  used 

10-3cm3  •  gm- 1 

91 

«i  -V 

92 

1 

(*C)-1 

93 

Not  used 

37 


'  4 

TABLE  6  (Continued) 


jL 


VARIABLE 

NAME  or 

UNITS 

DESCRIPTION 

NUMBER 

SYMBOL 

94 

ei2 

Potential  temperature 
corresponding  to  p*  in 

initial  field 

squared 

95 

-(«r  ii)/V 

None 

(if  ei 

is  in  column  4) 

96 

-(ef-  ef)/ep « 

None 

(if  ef 

is  in  column  4) 

97 

ei 

°C 

Local  potential  temperature 
at  <5^ 

98 

Not  used 
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A1  =  1 

B1  =  1 

NX1  =  1 

NY1  =  2 

CM 

II 

CM 

C 

B2  =  -.003 

NX2  =  64 

NY2  =  12 

A3  =  0 

B3  =  0 

NX  3  =  0 

NY3  =  0 

£ 

II 

o 

B4  =  0 

These  values  will  cause  the  buoyancy  frequency  in  cph  to  be 
plotted  as  a  function  of  meridional  position  (y-axis),  time 
(x-axis)  and  pressure  (station  axis).  X2DIM  defaults  to  3  (cph) 
and  Y2DIM  to  3000  (db),  resulting  in  station  axes  representing 
*3  cph  for  the  displacements  and  0  to  3000  db  for  the  pressure. 
The  default  number  of  stations  (variable  ND)  is  1  and  may  be 
changed  by  calling  KBR  =  1,  ISW  =  1.  The  plot  information  is 
stored  in  the  file  corresponding  to  unit  8.  It  must  be  read  and 
translated  by  a  Metacode  translator.  PEPLT  may  be  run  on  any 
terminal,  but  the  translators  are  only  i vail  able  for  graphics 
terminals  and  the  Calcomp  plotter.  See  the  last  part  of  this 
section  for  instructions  on  the  access  of  the  translators.  The 
origin  co-ordinates  may  be  changed  in  PEPLS  branch  2. 

Branch  1  with  ISW  =  0  may  be  used  to  change  PMIN  and  PMAX, 
thereby  selecting  a  range  in  pressure  over  which  data  will  be 
used  (all  other  data  is  excluded),  X2DIM  and  Y2DIM,  described 
above,  JMIN,  the  level  number  corresponding  to  the  pressure  at 
which  the  plot  is  to  start  (this  allows  the  user  to  skip  over 
shallow  points  which  may  have  anomalous  values),  and  various  plot 
parameters.  The  plot  parameters  include  PLABL,  the  overall  plot 
label;  XMIN,  XMAX,  YMIN,  YMAX,  the  axis  limits;  XLABL  and  YLABL 
the  x  and  y-axis  labels,  respectively. 

In  addition  to  plots,  if  ISSW(IO)  =  -1  TABLE  outputs  to  unit 
KOUT  the  following  list  of  variables  in  format  (GF8.3): 

PF,  XPL,  YPL,  ( VRBL ( NV (K ) ),K  =  1,6). 

(See  Table  6  for  descriptions  of  these  variables.) 

If  ISSW(1 2)  =  -1,  a  short  list  of  variables  is  output  to  unit 
KL I  ST:  pressure  (PF),  and  the  variables  x,  y  and  z,  z  given  by 
z  =  C1*VRBL(NZ1)  +  C2*VRBl(NZ2)  +  C3*VRBL(NZ3)  +  C4*C(IREC,3) 


I 
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SUMMARY  -  PEPLT:PEPLS:  KBR  =  1 

Function:  Call  subroutine  TABLE  -  multiple  station  plots,  map 
format  output,  lists  by  station. 

ISW,  USW  options:  ISW  =  2  Initialize  plot  parameters 

ISW  *  1  Change  plot,  map 
format  and  list 

parameters 

ISW  =  0  Plot,  list,  map 

format  output 

JSW  No  options 

ISSW  options:  ISSW(5)  =  -1  No  interior  axes  on  plot 
I S SW ( 6 )  =  -1  No  plot 
ISSW ( 10 )  =  -i  List  variables 
I S SW ( 1 2 )  =  -1  List  p,  x,  y,  z. 

2:  Change  data  selection  variables.  Calls  subroutine  to  change  time 

and  space  windows  and  origin  co-ordinates. 

3:  Change  plot  and  list  parameters.  This  branch  prints  a  short 

documentation  on  the  screen  each  time  it  is  called.  Parameters 
which  may  be  changed  and  their  descriptions  are  listed  in 
Table  7.  This  branch  has  internal  branches  1  through  8,  which 
are  prompted  by  '**:  PARAMETERS:  KBR3,  ISW3,  KX,  MV,  MW'.  Only 
KBR3  and  ISW3  have  any  effect  in  this  branch.  KX  is  the  total 
number  of  parameter  input  branches  (5).  To  return  to  PEPLS  from 
branch  3  the  user  must  enter  KBR3  =  1,  ISW3  =  0  followed  by  /. 
This  will  cause  the  new  parameter  values  to  be  written  on  unit 
KLIST,  and  stored  common  to  be  written  to  KPLCM.DAT. 

SUMMARY  -  PEPLT: PEPLS:  KBR  =  3 

Function:  Change  or  list  plot  and  listing  parameters 

ISW,  OSW  options:  None 

Input  device:  KIN 

Output  device:  KLIST 

ISSW  options:  None 


t 

s 


HU*.  •**:*«***»«'-'- 
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TABLE  7 

PEPLT:  PEPLS  Branch  3  Parameters 


VARIABLE 


DEFAULT 


■  i 
■> 


NX1 

NX2 

NX3 

NY1 

NY2 


- 1 

NY3 

0 

NZ1 

25 

■ 

F- 

NZ2 

0 

NZ3 

o  J 

t  . 

>'  • 

Al  B1  Cl 

1/ 

i*  . 

A2-A6,  B2-B6,  C2-C6 

0 

- 

01  to  06 

l-t 

■  s 

TMIN  to  YT 

None 

is 

SMIN  to  ST 

None 

DESCRIPTION 


Variable  codes  for  VRBL  used 
in  AVRGS  and  TABLE  computations 


Scaling  factors  used  in 
AVRGS  and  TABLE  computations 


Not  used 
Not  used 
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4:  Calls  AVRGS  subroutine.  This  subroutine  calculates  horizontal 

averages,  allows  operations  such  as  vertical  integration  and 
column  addition,  multiplication,  exponentiation  and  division. 
There  are  23  internal  branches  in  AVRGS,  accessed  with  different 
values  of  ISW{0  to  22).  These  internal  branches  are  described 
below,  with  a  summary  at  the  end  of  each.  As  an  overview,  AVRGS 
reads  the  requested  data  from  *.AVG  files  into  a  two-dimensional 
array  C(100,6).  The  rows  (1  to  <_  100)  correspond  to  the 
pressure  levels  and  the  columns  to  variables  requested  by  the 
user  and  computed  in  function  subroutine  VRBL  (see  PtPLS  branch 
1  for  a  description  of  VRBL).  As  each  successive  station  is 
read,  the  elements  of  C  are  added  to,  forming  sums  of  all  data 
available  at  all  levels.  These  sums  must  then  be  divided  by  the 
total  number  of  observations  at  each  level,  to  obtain  the 
average  values.  For  reasons  of  flexibility,  the  reading/summing 
and  division  are  performed  in  separate  ISW  branches  within 
AVRGS.  Once  the  array  C  is  filled  (one  column  of  which  must  be 
the  number  of  observations)  and  averaged,  then  a  number  of 
operations  can  be  performed  on  the  averages.  The  remaining  ISW 
branches  of  AVRGS  are  devoted  to  these  operations. 

AVRGS  has  its  own  prompt  'AVRGS:KBR, ISW, JSW.KLIST' ,  and 
control  does  not  return  to  PEPLS  unless  KBR  =  4  ISW  =  12  is 
accessed.  Therefore,  only  four  variables  (or  <  4  followed  by  a 
/)  need  be  input  following  the  AVRGS  prompt.  In  order  to  keep 
track  of  the  operations  performed  in  AVRGS,  if  ISSW ( 2 )  =  -1  the 
four  parameters  are  written  to  unit  4  each  time  an  AVRGS  branch 
is  accessed,  along  with  other  pertinent  information.  This  ISSW 
option  will  not  be  noted  in  the  summaries. 

Branches  in  AVRGS:  (ISW) 

ISW  =  0:  Prints  short  documentation  on  unit  KTTX 
ISW  =  1:  Reads  station  data  into  C  array.  Variables  corresponding  to 
NV(JSW)  to  NV(KLIST)  (maximum  of  six)  are  read  into  columns 


JSW  to  KLIST  of  array  C  for  ND  number  of  stations  from  file 
JSHP.PTN  (logical  unit  12),  starting  with  the  first  station  in 
that  file.  All  data  between  PMIN  and  PMAX  is  accessed  for  each 
station.  The  array  C  is  stored  to  KPLCM.DAT  before  returning  to 
the  AVR6S  prompt.  If  ISSW(15)  =  -1,  the  weights  (WT)  from 
JSHP.PTN  file  are  used;  otherwise  a  weight  of  1.  is  used.  Each 
element  of  C  is  a  sum  of 

C( IREC, I )  =  C(IREC.I)  +  D ( I ) *WT* ( AV*VRBL ( NV ( I ) ) ) 

+  { BV+C V*VRBL ( NV ( I ) )*VRBL ( NX ( I ) ) ) 

The  default  parameters  are  set  such  that 
C( IREC, I )  =  C ( IREC, I )  +  WT*VRBL(NV(I) ) 

Some  of  the  parameters  used  by  this  branch  may  be  changed  in 
branch  3  of  AVRGS,  and  some  in  branch  3  of  PEPLS. 

SUMMARY  -  PEPLT :AVRGS:  KBR  =  4:  ISW  =  1 

Function:  Read  and  store  data  to  C  array 
JSW,  KLIST  options:  JSW  is  first  column,  KLIST  last  column 
Output  device:  Array  is  stored  to  KPLCM.DAT  for  emergency 

retrieval.  No  other  output. 

ISSW  options:  None 

ISW  =  2:  Zeros  columns  JSW  to  KLIST  of  array  C 

ISW  =  3:  Changes  or  lists  parameters.  Parameters  involved  are  listed 
in  Table  8.  JSW  =  1  initializes  the  parameters  (defaults 
also  in  Table  9)  before  allowing  changes;  JSW  *  0  retains 
previous  values.  (The  first  access  to  this  branch  must 
initialize. ) 

SUMMARY  -  PEPLT: AVRGS:  KBR  *  4:  ISW  =  3 
Function:  Change  parameters 
JSW,  KLIST  option:  JSW  ■  1  initializes 
JSW  =  0  prints  current  values 
Output  device:  KTTX 

ISSW  options:  None 

ISW  =  4:  Average  table:  divide  columns  JSW  to  KLIST  by  column  6, 

which  should  have  the  number  of  observations  at  each  level. 
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TABLE  8 

PEPLT:  AVRGS  Branch  ISM  =  3  Parameters 


VARIABLE  DEFAULT  DESCRIPTION 

( Initialized) 


ND 

1 

Number  of  stations  to  be  processed 

NV(1) 

51 

Variables  to  compute  for  C  array  as 

NV(2) 

68 

VRBL(NV(I) )  in  column  I. 

NV(3) 

86 

See  Table  6  for  VRBL  codes. 

NV(4) 

87 

NV(5) 

63 

NV{6) 

-1 

JREF 

50 

Number  of  levels  to  be  calculated 

JMAX 

55 

Level  number  corresponding  to  reference 
pressure  for  integrations  over  pressure 

NX (I), I =1,6 

0 

Optional  additive  quantities  in  C  array 
element  calculation  (see  text). 

A1 

1.’ 

A2 

0. 

X  and  Y  scaling  factors  for  plots 

A3 

0. 

► 

B1 

1.1 

Initialized  when  PEPLS  is  called  by 

B2 

0-J 

responding  YES  to  'Initialize  common  1 

NX1 

12' 

Optional  plot  parameters  (see  text  for 

NX2 

0 

AVRGS  branch  ISM  =  7). 

NY1 

19 

NY2 

Initialized  in  PEPLS  as  above 
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ISW  =  5:  Add  column  JSW  vertically,  starting  from  level  2  and  going 
to  JMAX: 

C(IREC,JSW)  *  C ( I REC  -  l.JSW) 

ISW  «  6:  List  C  array  to  unit  KLIST.  Inlcudes  data  label, 
parameters,  level  number  and  pressure,  and  C  array. 

ISW  =  7:  Plot  one  frame.  Up  to  six  curves  allowed  per  frame.  NCAR 
plot  package  outputs  to  unit  8  a  file  which  must  be  read  and 
translated  into  a  plot  by  a  Metacode  translator.  PEPLT  may 
be  run  on  any  terminal,  but  the  plot  files  may  only  be 
translated  on  graphics  terminals  and  the  Calcomp  plotter. 
Instructions  for  running  the  translators  are  found  at  the 
end  of  this  section  of  the  report.  The  plot  branch  asks  for 
the  number  of  curves  (default  1,  maximum  6),  the  level 
number  for  the  first  point  (default  1),  the  plot  label,  the 
minimum  and  maximum  coordinates  for  x  and  y  (unless  the  user 
opts  to  have  the  NCAR  plot  package  compute  the  scales,  by 
responding  YES  to  the  query  'Use  default  axis  parameters? ' ) , 
x  and  y  axis  labels,  and  the  column  number  to  be  plotted. 

The  program  actually  plots: 

x  =  B1*C( J, JSW)  +  B2*C( J,NX2)  +  B3*PF 
y  =  A1*PF  +  A2*C(J,NV1)  +  A3*C(J,NY2) 

The  default  values  of  the  parameters  plots 
C(J,JSW)  vs  PF  (pressure). 

However,  if  for  example  the  user  wished  to  plot  potential 
temperature  e  vs  salinity  S,  with  e  (VRBL(65))  in  column 
1  and  S(VRBL(61))  in  column  2,  then  the  values  of  the  above 
parameters  should  be  changed  (using  AVRGS  branch  3) 

A1  =  0.  B1  =  1  NY1  =  1 

A2  =  1.  82  =  0 

A3  =0.  B3  *  0. 

The  y-axis  runs  backwards  (maximum  at  the  bottom  to  minimum 
at  the  top)  unless  A1  is  equal  to  0.  An  example  is  given  in 
ENERGY.COM  —  see  Appendix  A. 
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Characters  of  the  user's  choice  which  mark  the  actual  data 
points  may  also  be  plotted  if  ISSW(5)  =*  -1.  Note  should  be 
made  that  these  are  not  centered  characters,  so  that  the 
data  point  actually  occurs  wherever  the  plotter  commences 
drawing  the  character. 

SUMMARY  -  PEPLT:AVRGS:  KBR  =  4,  ISW  =  7 

Function:  Plot  one  frame  containing  up  to  six  curves. 

JSW  option:  JSW  is  the  column  number  to  be  plotted.  It 

may  be  changed  while  in  the  plotting  branch. 
Output  device:  Plot  information  goes  to  Metacode  file,  unit  8. 

ISSW  options:  ISSW(5)  *  -1  plots  character  to  mark  actual 

data  points.  Character  is 
requested  while  in  plot  branch. 

ISW  =  8:  Calculates  gravitational  available  potential  energy  per  unit 
mass  (GPE)  and  per  unit  area  (TGPE),  from  the  horizontal 
averaged  steric  volume  WI  ( VRBL (18) )  in  column  1  and  for 
the  reference  steric  volume  DVF  (VRBL (19) )  in  column  2, 
except  for  a  constant  of  integration.  GPE  and  TGPE  relative 
to  some  reference  pressure  are  calculated  by  subtracting 
from  GPE  and  TGPE  at  each  level  the  value  at  the  level 
corresponding  to  the  desired  reference  pressure  (denoted  by 
level  number  JREF)  in  AVRGS  branch  ISW  =  10.  GPE  is  stored 
in  column  1,  TGPE  in  column  2.  The  units  are  10~^ 

J.kg-*  and  10+^  J.m~^,  respectively. 

SUMMARY  -  PEPLT:AVRGS:  KBR  *  4,  ISW  =  8 

Function:  Calculate  GPE  and  TGPE  except  for  a  constant  of 
integration 
JSW  options:  None 

Output  device:  None  (GPE  and  TGPE  replace  DVI  and  DVF  in 

columns  1  and  2,  respectively,  of  array  C.) 

ISSW  options:  None 

ISW  *  9:  Integrate  over  pressure  columns  JSW  to  KLIST.  This  is  an 
alternate  method  for  calculating  GPE  and  subsequently  TGPE, 


46 


with  DVT  -  DVF  ( VR 8L ( 5 1 ) )  in  column  JSW.  It  may  also  be 
used  to  compute  the  compressibility  effects  in  the  GPE 
calculation  (see  equation  28  in  Bray  and  Fofonoff,  1981). 

The  integration  is  performed  starting  with  the  first 
element  in  the  column,  and  continuing  to  the  last;  the 
reference  value  must  be  subtracted  in  a  separate  operation, 
using  AVRGS  branch  ISW  «  10. 

SUMMARY  -  PEPLTtAVRGS:  KBR  =  4,  ISW  =  9 

Function:  Integration  over  pressure  (except  for  a  constant)  of 
columns  JSW  to  KLIST 

JSW  options:  Columns  JSW  to  KLIST  are  integrated 

Output  device:  None 

ISSW  options:  None 

ISW  =  10:  Subtract  value  at  reference  pressure  (level  corresponding  to 
JREF )  from  all  other  elements  in  columns  JSW  to  KLIST 
Output  device:  None 

ISSW  option:  None 

ISW  =  11:  Add  up  to  four  scaled  columns,  according  to 
J  =  IREC 

C( J.JCl)  =  CR1*C(J,JC1)  +  CR2*C(J,JC2)  +  CR3*C(J,JC3) 

+  CR4*C( JREF, JC4) 

If  JSW  *  1,  JC1,  CRI  to  JC4,  CR4  are  entered;  no  addition  is 
performed. 

If  JSW  =  0,  addition  is  performed  using  most  recently  input 
parameters. 

SUMMARY  -  PEPLT: AVRGS:  KBR  =  4,  ISW  =  11 

Function:  Add  up  to  four  scaled  columns,  row  by  row 
JSW  Option:  0:  perform  addition 

1:  input  scaling  and  column  parameters 
Output  device:  None 

ISSW  option:  None 

ISW  »  12:  Return  to  PEPLS 
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ISM  =  13:  Multiply  up  to  three  scaled  columns,  row  by  row  according  to 
C(IREC.I)  =  C0N1*C(REC, I )*{ C0N2*C( IREC, J)*[C0N3*C( IREC,K)]} 
If  I  =  -1  no  operation  is  performed. 

If  J  =  -1  then  the  expression  in  {}  is  set  to  1;  if 
K  =  -1,  the  expression  in  [  ]  is  set  to  one,  allowing  one, 
two  or  three  scaled  columns  to  be  multiplied  together.  The 
parameters  may  be  changed  when  the  branch  is  accessed.  The 
default  values  are  I,J,K  =  -1;  CONI,  C0N2,  C0N3  =  1. 

SUMMARY  -  PEPLTrAVRGS:  KBR  =  4,  ISM  =  13 


Function:  Multiply  up  to  three  columns,  row  by  row 

JSW  options: 

None 

Output  device: 

None 

ISSW  options: 

None 

ISM  =  14:  Output  in  map  format  to  unit  KTO.  Branch  requests  output 

file  name  and  level  number  (JREC)  desired.  Variables  output 
are: 

IDSTN  (station  identifier:  ship,  station),  XLAT,  XLONG, 

( VR8L ( NV( K ) ) ,  K  =  1,3),  (C(JREC,K),K  =  4,5) 
in  format  (1H  ,A5,2(F8.2),5F(8.3)). 

SUMMARY  -  PEPLT :AVRGS:  KBR  =  4,  ISM  =  14 
Function:  Output  in  map  format 
OSW  option:  None 

Output  device:  Unit  KTO  (may  be  changed  in  branch;  default 

is  60) 

ISSW  options:  None 

ISW  *  15:  Not  used 

ISM  =  16:  Take  any  single  column  to  any  power,  row  by  row.  Operations 
are  performed  on  the  absolute  value  of  all  elements.  If 
JSW  =  1,  exponent  and  column  inputs  are  prompted.  If 
JSW  =  0,  exponentiation  is  performed.  The  call  to  JSW  «  0 
should  immediately  follow  that  to  JSW  *  1,  as  the  variables 
used  for  exponent  and  column  number  are  not  unique  to  this 
branch. 
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SUMMARY 

ISW 


ISW 

ISW 

ISW 

ISW 

ISW 


-  PEPLT.'AVRGS:  KBR  .  4,  ISW  =  16 
Function:  Exponentiation  of  a  single  column 
JSW  options:  JSW  =  0:  Operation  performed 

JSW  =  1:  Exponent  and  column  entered 
Output  device:  None 

ISSW  options:  None 

=  17:  Integration  of  error  terms:  interval  pressure  squared  as 
the  integration  variable.  This  is  intended  for  the 
calculation  of  measurement  and  f inestructure  errors  in  GPE 
and  TGPE;  as  such  it  may  be  used  on  columns  containing 
averaged  values  of  VRBL  (75  and  77  through  81)  —  see 
Table  6.  This  branch  uses  the  same  algorithm  as  AVRGS 
branch  ISW  *  9,  with  aP^  instead  of  aP  as  the 
integration  variable.  See  AVRGS  branch  ISW  =  9  for  a 
summary. 

=  18:  Writes  into  column  5  the  difference  in  pressure  between  each 
pair  of  levels,  beginning  at  the  top. 
a  19:  Exchange  columns  JSW  and  KLIST. 

*  20:  Input  a  new  single  element  of  C.  Branch  prompts  for  column 

and  row  of  element  to  be  changed. 

*  21:  Compute  the  standard  deviation  and  store  in  column  1  of  any 

quantity  X  for  which  X  (the  average  value)  is  stored  in 
column  4  and  Xc  in  column  3. 

=  22:  Compute  the  dynamic  height  for  each  station  at  any  range  of 
levels  referred  to  level  JREF  and  output  in  map  format. 
Branch  prompts  for  output  device  (default  is  60),  and  level 
numbers  (JREC1,  JREC2)  for  dynamic  height  calculation. 
Reference  level  JREF  may  be  changed  in  AVRGS  branch 
ISW  =  3.  To  calculate  dynamic  height  NV(1)  must  be  18, 

NV ( 2)  19.  Variables  output  are: 

I DSTN  (station  identifier),  XLAT,  XLONG,  Dynamic  height 
(in  dynamic  centimeters),  (NV(K),K  «  3,6). 

Output  occurs  for  ND  stations,  beginning  with  the  first 
station  in  JSHP.PTN  (unit  12). 
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SUMMARY  -  PEPLT:AVRGS:  KBR  *  4,  ISW  =  22 

Function:  Compute  dynamic  height  relative  to  JREF  for  any  range 
of  pressure,  for  each  of  ND  stations  and  output  in  map 
format.  Four  optional  variables  are  also  output,  for 
the  same  range  of  pressure.  An  example  command  file, 
DYNHT.COM  is  found  in  Appendix  A. 

ISW  options:  None 

Output  device:  Unit  KTO  (default  60;  may  be  changed  by  the 

user  when  the  branch  is  accessed). 

ISSW  options:  None 


PEPLT  Branches  (KBR),  continued 

5:  Set  values  of  elements  in  the  ISSW  array.  Up  to  16  inputs  are 

allowed,  each  consisting  of  the  element  number  followed  by  the 
element  value  (-1  or  0).  Terminate  before  16  by  typing  /. 

6:  Restart  main  program. 

7:  Exit  program:  a  YES  response  to  the  branch  query  ’EXIT  PROGRAM  ' 

results  in  the  execution  of  a  FORTRAN  stop.  A  NO  response 
returns  the  PEPLS  prompt. 


Metacode  Translators 

The  translators  for  the  plot  files  (written  to  unit  8)  created  in 
AVRGS  (branch  ISW  =  7)  and  TABLE  (PEPLS  branch  KBR  *  1)  are  device 
specific.  That  is,  each  graphics  terminal  has  its  own  version.  The 
CALCOMP  high  speed  plotter  has  two  versions:  one  with  default  plotting 
parameters,  and  one  which  allows  the  user  to  enlarge  or  stretch  the 
plots,  alter  their  distribution  on  the  plotter  paper,  etc.  The  IMLAC  and 
Tektronix  terminals  also  have  versions  of  the  translator  to  allow  plot 
previewing. 

For  all  translators: 

If  the  plot  file  was  written  to  any  other  file  than  that  named 
F0R008.DAT  (via  an  ASSIGN  statement  before  running  PEPLT)  then  you  must 
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assign  that  ouput  file  name  to  unit  8  before  running  the  translators. 

For  example,  if  your  plot  file  is  named  PLOT.PPT,  you  must  make  the 
following  assignment: 

ASSIGN  PLOT.PPT  F0R008. 

For  the  CALCOMP  (both  versions)  you  must  also  assign  terminal 
TTA4:  to  FOR 061 : 

ASSIGN  TTA4:  F0R061 

Then 

RUN  MCTRNPLOT  (for  MetaCode  TRaNslator  PLOT) 
plots  with  default  parameters,  and 
RUN  MCTRNPLT2 

prompts  the  user  for  changes  in  the  plotting  parameters  before  executing 
the  plots.  MCTRNPLT2  asks  three  questions:  first,  how  many  plots  in  the 
y-direction  (across  plotter)?  The  default  is  1,  and  is  retained  if  a  / 
is  entered.  Second,  what  size  shall  the  plots  be?  The  default  is  10  by 
10  inches.  The  new  dimensions  are  entered  in  inches,  and  need  not  be 
equal  for  x  and  y.  Again  a  /  retains  the  default  values.  Finally,  the 
program  asks  for  the  distance  between  plots,  in  inches.  The  default  is  2 
inches  in  both  x  and  y.  All  plots  in  the  file  assigned  to  unit  8  are 
plotted,  sequentially. 

For  the  Tektronix  (or  the  IMLAC  in  Tektronix  mode): 

RUN  MCTRNTEK 

starts  the  plot  previewer.  If  there  is  more  than  one  plot,  the  program 
prompts  for  continuing  to  the  next  plot  by  asking  'Option  ?'  to  which  the 
user  should  respond  C  for  continue,  until  all  plots  in  the  file  assigned 
to  unit  8  have  been  plotted. 

For  the  IMLAC  (recommended  over  the  IMLAC  in  Tektronix  mode,  since 
it  is  simpler,  and  uses  more  of  the  screen): 

RUN  MCTRNDYN1 

starts  the  plot  previewer.  This  program  also  prompts  for  continuation  if 
there  is  more  than  one  plot. 

This  translator  information  is  accurate  as  of  December  1980.  If 
you  encounter  difficulties  you  should  refer  to  the  current  VAX  manual. 


4.  Modification  of  POTEN  to  accept  input  CTD  data  in  other  than  CTD78 
disc  format. 

This  section  is  intended  as  a  guide  to  assist  users  who  wish  to  use 
POTEN  on  CTO  data  with  formats  other  than  that  read  by  the  standard 
version.  In  this  section  the  header  information  required  by  POTEN  is 
described  in  detail,  and  the  procedure  for  reading  data  is  explained. 

The  only  subroutine  which  must  be  changed  is  DATA,  providing  that  the 
input  data  is  an  even  series  in  pressure  with  no  gaps. 


DATA  requires  the  following  header  information  for  each  station: 


Description 

Variable  Name 

Format 

Ship  Name 

ISHP 

A2 

Cruise 

ICRUIS 

A3 

Station 

I  STAS 

13 

Decimal  Latitude  (south  negative) 

XLAT 

F 

Decimal  Longitude  (west  negative) 

XLONG 

F 

Day 

IDA 

12 

Month 

I  MO 

12 

Year  (last  two  digits) 

IYR 

12 

Time  (24  hour  clock) 

ISTME 

14 

Station  Label 

LBBL(3) 

3A4 

Minimum  Pressure 

PM IN  or  IPR 

F  or  I 

Maximum  Pressure 

LPR 

I 

The  CTDATA  library  subroutines  not 

disc  version  of  CTD78  are: 

needed  for  formats  different 

from  the 

PVER 

CRUISE 

Header  Information 

STATION 

0ATI0X 

Data  Retrieval 

GET DAT 

Also,  the  common  file  IOXREC.DIM  should  not  be  included  in  DATA  — 
see  the  statement  INCLUDE  'IOXREC.DIM'.  The  variable  LLREC  is  the  total 
number  of  stations  in  the  subindex  directory;  all  statements  in  DATA  and 
COMPS  which  refer  to  LLREC  may  be  deleted.  The  data  are  stored  in  arrays 
PRESS  and  DATAX. 


Pressure  is  stored  in  PRESS, (  #),  temperature  in  DATAX(1,  #), 
salinity  in  DATAX(2,  #)  with  #  the  data  scan  number.  Subroutine  DATA 
must  fill  DATAX  and  PRESS  (all  scans)  when  it  is  called  for  each 
station.  Finally,  DATA  must  return  to  COMPS  the  total  number  of  data 
scans,  JRMAX. 

Stations  are  selected  by  the  call  to  DATA  in  COMPS.  The  call  is 
CALL  DATA  (KST.l) 

In  COMPS,  KST  is  the  sequential  number  in  the  DO  loop  from  ISW  to 
JSW  in  branch  1  (or  13).  If  the  input  data  is  on  magnetic  tape,  the  user 
may  wish  to  change  the  DO  loop  in  COMPS  to  go  from  1  to  JSW:  that  is, 
start  at  the  beginning  of  the  tape  and  read  through  ISW  stations. 

The  section  of  DATA  in  which  the  ship  and  cruise  specification  may 
be  changed  (NSW  =  2)  can  be  readily  modified  to  accept  similar 
information  (in  branch  13)  pertinent  to  the  user's  input  data. 

The  header  information  should  be  read  in  following  statement  #5, 
replacing  the  statements  between  #5  and  #54.  The  data  should  be  read 
in  in  statements  which  replace  the  calls  to  DATIDX  and  6ETDAT. 
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Appendix  A 

Example  command  files  for  different  routine 
calculations  using  POTEN  and  PEPLT. 

In  this  appendix  documented  command  files  which  perform  various 
routine  calculations  are  listed.  In  the  order  in  which  they  appear  they 
are:  ENERGY.COM,  POTEN.COM,  PEPLT.COM,  TABLE.COM,  and  DYNHT.COM.  Brief 
descriptions  of  these  files  are  also  found  in  Table  2.  The  files 
themselves  contain  detailed  documentation.  Example  plots  from  ENERGY.COM 
are  also  included:  see  Figures  5  to  12.  Example  plots  from  TABLE.COM 
are  found  in  Figure  4. 
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5  1!  ******♦*♦♦  +  *♦  FNERGY.COM  *♦♦♦♦**'*♦♦**** 

10  i!COM«ANO  FILE  TO  COMPUTE  APE  FROM  CTD78  FORMAT  DATA*  CREATES 

— i-g - TTTnramnm  printout  mo  plots."  nm  novo  ~vs  awitttin  learning 

26  4M0  USF  THE  VAX-11  PROGRAMS  POTEN  AND  PEPLT. 

34  *14  JULY  81.  NAN  BRAY 

42  $• 

SO  iSFT  OFFAULT  0BA2  :<H6316.tDE> 

100  iASSrCN  JSHPE5.PTN  F0R012  !  E I LE  TO  BE  CREATED  BY  POTEN  CONTAINING 

T515  _  STATION  IDENTIFIERS. 

200  tASSFON  PRINT. PTN  FOR004  !F ILE  FOR  LINEPRINTER  OUTPUT  FROM  POTEN 

300  RUN/NODFB  POTEN 

400  YES  INITIALIZE  COMMON 

500  NO  DO  NOT  INITIALIZE  RF(3RESSI0N  PARAMETERS 
600  2.5  I  PRESSURE  INTERVAL  FOR  INPUT  DATA 

•  too - rrrrryyy — met  parameter's  -ettr  regression - 

800  ,,,,,?./  MET  PO IFF  TO  208 — INTERVAL  OVER  WHICH  TO,SO,DVO  AVFRAGFO 

000  /  ’On  NOT  CHANGE  OELP— PRES  SURE  INTERVAL  FOR  INPUT  DATA 

1000  NO  00  NOT  CHANGE  REGRESSION  PARAMETERS 
TTOO  /  !LTAVF  tine  WINDOW  AT  DEFAULT  0-3650AYS 

1200  /  ! LEAVE  FAST-WEST  SPACE  WINDOW  AT  DEFAULT:  -180,180  DEG 

TUTU - 7 - TTTOrVE  - WDTTrff=STTOrm  SP  ACE  H ENDOW AT  WF  A'UTT T~*>9  0  ,OD  TTFC 

1400  YFS  CHANGE  DATA  LABFL 

T500  LOF  PS5  TEST— STANDARD  VFRSION,  NFW  FOS--22  JULY  81 

1600  11/  MET  ISSW  ARRAY 

1800  11,-1/  !L  1ST  STATION  TNEOIMATIlW^TrrTJNTTnTLTSTTETLF  FRTNT.TTN) 

1850  11/ 

two - ir,o/ — ron  not  list  regression -summary— AT  FAtIT  OEPTH  FDR  TTACTT  STATTON 

1950  11/ 

2000  13,-1/  *  CREATF  *.RFG,*.  AVO  FILES 

2050  11/ 

2100  5,0/  TOO  NOT  LIST  INDIVIDUAL  INPUT  DATA  SCANS’ 

2150  11/ 


1YJ  ,(T/  lun  NTJ  T  L  111  FSS  I  UN  X  UcF  FT  t  TENTS  FOR  EACH  Lc*rL 

2500  1, 229,736, 4/IUSING  DEE  CRUISE  SPECS,  REGRESS  STA  REF  •  ISW  TO  JSW 

2660  13,701,208,6/  ’CHANCE  THE  CRUISE  SPETTSf  THEM  AS  IN  PREVIOUS  COMMAND 

2675  W  ! SUBDIRECTORY  VERSION 

2690  TSOOTOD3  ’SHIP,  CPUtST,  PROJECT  NUMBER - 

2900  11/  ’RESET  ISSW  ARRAY 

3000 - r?v-t / — ’LIST  AVERAGED  REGRESSTON  COEETTCTENTS - 

3100  4, 1,0*4/  'PROCEED  THROUGH  ENTIRE  AVERAGING  PROCESS.  LISTS  TO  PRINT. PTN 

3200  12/  TFXIT  PROGRAM? 

3300  YFS 

3400  S ASSIGN  PRINT.RPT  FOR 004  mSTTNO  F3LE  FOR  REM. T  OUTRUT 
3500  5 ASSIGN  PLOT.PPT  E0ROO8  ! NC AR  PLOT  ETLE  FOR  PEPLT  PLOTS 

1600 - HUN/NnUEH  PETTI - 

3700  NO  DO  NOT  PFAO  IN  PREVIOUSLY  STORED  COMMON 
3000  YES  TNTTIALIZE  DATA  SELECTION  PARAMETERS 

3900  5/  MET  TSSW  ARRAY 

ROOD  2,-1/  'LIST  OPERATIONS  PERFORMED*  TN  RRINTTPPT 
4050  5/ 

4100 - TrT/ - ’PLOT  CHARACTERS  BN  PLOTS  POR  t  DENT  TEt  CAT  TON - 

4200  4,2,1  ,’6/  'ZERO  C  ARRAY  IN  AVRGS.  PROGRAM  CONTROL  NON  IN  AVRGS. 

4300  433,  17  MET  VARIABLE  SELECTION  TARA  METER  S' 

4400  1000, V,,,,, 50/  ’CHANGE  1000  TO  •  GE  STATIONS  IF  NO  <  ALL 

4400  /  *00  NOT  CHANGE  AV  THROUGH  NX III  ' 

4600  /  ! 00  NOT  CHANGE  Al  THROUGH  B3 

4700 - 7 - rUU  NOT  CHANCF  NT1  THROUGH' NY 2 - 

4800  4 , 1 , l V6  'READ  VARIABLES  AS  SELECTEO  INTO  C  ARRAY. 

4000  4,4,I,4  ’OTTTOE  COLUMNS  1-5  BT  6 T NUMBER  OF  STATTONST  TO  AVER  AGE 

5000  4,6, 1,4  ! MR ITE  C  ARRAY  TO  PRINT. PPT 

MOO  4,M,TW3  ’INTEGRATE  COLUMNS  1^3  WITH  RESPFCT  TU  BRES5URE ~  - 


T7D0 

5325 

5400 

5500 

5600 

5700 

5500 

6900 

■6000 

6100 

6200 

6300 

6600 

6600 

T60TT 

6700 

6500 

6900 

7000 

7100 


7<»00 

5000 

8100 

8200 

8300 


8500 

5600 

8  700 
5800 
8900 


9100 

W?00 

9300 

9600 

9500 


9700 
9600 
99 00 
10000 
10100 


10300 

ro*oo 

10500 

10600 

10700 


t  unuu 

10900 

trooo 

moo 

n?oo 


4,10,1*3  'SUBTRACT  FRO*  ALL  LEVELS  THE  VALUE  AT  LEVEL  JREE 
4,6, 1*4  'WRITE  C  ARRAY  TO  PRINT.PPT  _ 

4,6, 1*4  'WRITE  C  ARRAY  TO  PRINT.PPT* 

4,11*1/  'RESET  A f>f> f T I'VE  CONSTANTS 

1,1. *2*1. *3,1. ,4,0.  'REPLACE  COMPRESSIBILITY  TERNS 

4,11 #07 

4,16*1/ 

~.5T5~-  7T5TF  COLUMN  T  TTTT1TF"  POWER  T5 -  - - 

4,16,0/ 

4,6, 1*4  'WRITE  C  ARRAY  TO  PRINT. PPT  - 
4,7/  fCALL  PLOT  BRANCH 

4,3  * 4  PLOTS  IN  THIS  FRAME*  STARTING'  AT  LFVEL  1  ON  EACH 

YES  INPUT  NEW  PLOT  LABEL  _ 

4*0  00  NO  USE  OF E AULT  AXIS  PARAMETERS 
-20,700,0,3000  •X«IN*'XNAX,YHiN,YMAX 
YES  CHANGE  X-AXIS  LABEL 
APE  106/SFC) 4*2 
YES  CHANGE  Y-AXIS  LABEL' 


nn  aim t  , 

•PLOT  COL  1 

!  *  TS  PLOT  CHARACTER  I  IDENTIFIER  1N0T  CENTERED!  1 
!  PL.OT  COL  7 

•PLOT  COL  3 


4  'PLOT  COL  4 
X 

4,7/  'CALL  PLOT  BRANCH  FOR  NEXT  PLOT 

1,1/  ?r  PLOT  IN  THIS  FRAME;  STARTTNC?  AT  LEVEL  l 

NO  00  NOT  CHANGE  PLOT  LABEL 


0,100*0, 3000 

YES  CHANGE  X-AXIS  LABEL 

RMS  OTS PLACEMENTS,  OB 

NO  OTT  WOT  CHANGE  Y-AXTS  LABEL 

6  'PLOT  COL  5 


♦ 

4,2, 1*5  '/FRO  COLUMNS  1-5  OF  C  ARRAY 

4,3,0/  !  RESET  SELECTED  VAR  I  ABLE  ERWIHETEPS,  LEIWINC  OTHEITS  AS  BEE71RE 

,50,61*65,64,19/ 

/ 


4,1, 

4,4, 

4,6, 

4,12 

5/ 


4,7/ 

1,1/ 

NO 

NO 

34.8 


1,5  'READ  VARIABLES  INTO  COLUMNS  t-5?  START  AT  TOP  OF  JSHP.PTN  LIS 
1*5  »OTVTOE  COLUMNS  T-5  BY  WU*8EW  OF  STATIONS  -  J 

1*4  'WRITF  C  ARRAY  TO  PRINT. PPT 

/  fRETURN  CONTROL  TO  PTELS - 

•SET  ISSW  ARRAY 


:  i  I'irn  i  in  riui  j 

fCALL  PLnT  BRANCH  FOR  NEXT  FRAME?  SEE  EARtIFR  DESCRIPTION 


*36.8,0,3000 


SALINITY,  PPT 
NO 
2 

4,7/ 


IfHUMLlU 


11600  2,??, 0-1000 
iiroo  ye 

11800  POTENTIAL  TEMPERATURE,  OEG  C 
11900  NO 
12000  1 


100  4, 

12200  1,1 
12100  NO 
12*00  NO 
12500  0,8,0,1000 

12600  YE 


;  12800 
17000 

i  liooo 
i;  moo 

S  11200 


11400 

11500 

11600 

11700 

11800 


14000 

14100 

14200 

14100 

14400 


40,220,0,1000 

YE 

DELTA-E,  1E-S  CM**3/GN 
W 


iiiawia* 


.naiULi. 


! NOW  GOING  TO  PLOT  5 ( THETA  1  RATHER  TURN  SIP),  CHANGE  Al,A? 


14600  NO 
1 4  TOO  NO 

14800  14.8 -16.8,2,2? 

14000  YT 

16000  SALINITY,  PPT 


1 
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18200  POTENTIAL  TEMPERATURE,  DEG  C 

15700  2  - 

15400  4,7/  ’CALL  PLOT  RRAIICW  FOR  FINAL  FRAME?  DEEP  THETA-S 

15500  1,77  -  - - - - 

18600  NO 


1  7  r  OO 

18800  14.01,18.01,2.6,4.8 

15900  NO  -  - 

16000  NO 

16100  2  - 

16200  4,12/  ? RETURN  CONTROL  TO  PFPLS 


16400 

16500 


SERTNT/OEL  PR  TNT .  PTN,PrRTWT“.PT,T 


4 


6 


18 


20 


22 


8  10  12  14  16 

PATENT I RL  TEMPERATURE.  OEG  C 


Figure  8:  Example  plot  from  ENER6Y.COM 
Potential  temperature  in  *C  averaged  along  adiabatical ly 
leveled  surfaces. 


.5 


1.0  1.5  2.0  2.5  3.0  3.5  4.0  4.5  5.0 

N.  CPH 

Figure  9:  Example  plot  from  ENERGY.COM 
Buoyancy  frequency  N  in  cph  averaged  along  adiabatically 
leveled  surfaces. 
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1 


LDE  FS5  TEST  0F  STANDARD  VERS10N 


PATENT I AL  TEMPERATURE.  DEG  C 


LDE  FS5  TEST  0F  STANDARD  VERSI0N 


Figure  12:  Example  plot  from  ENERGY.COM 
Deep  potential  temperature  vs  salinity. 
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50  !•  ♦♦♦♦♦♦♦*♦*♦**  POTFN.Cn*1!  #♦♦*♦♦**♦♦♦*♦♦ 


100  1‘TASK  IS  TO  SFT  UP  PARAMETERS  FOR  AN  INTERACTIVE  RUN  OF  POTEN 
110  HE INAL  INSTRUCTION  IN  THIS  CON  FILE  CHANGES  KIN  TO  ft*  THEREBY 
120  HPETtfRNINC  CONTROL  TO  THE  TERMINAL. 

130  1! 

200  IASSIGN  PRINT. PTN  E0R0O4 

“Y06  IASS  I GN  JSHPFS5. PTN  POROi?  ! CHANGE  JS  HP F  S  5  TO  CORRECT  STATION  LIST 
500  RUN/NOOFP  POTFN 


700  NO  00  NOT  INITIALISE  REGRESSION  PARAMETERS 


716  2.5  'PRESSURE  INTERVAL  FOR  INPUT  DATA 


1200  0  ««.*■«•  6/  !  CONTROL  Nnw  RETURNS  TO  TERMINAL  FOR  INTERACTIVE  SESSION 
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5  l»  *************  PEPLT.COM  *♦♦♦♦♦♦****♦♦♦ 

10  4  !  T  A  9K  IS  TO  SFT  UP  RARAMFTERS  FOP  AN  INTERACTIVE  PUN  OF  PFPLT 


■  _  |n  i  t ■ii  in  n  in  i.irt u*,tb 


tv  *  .  un  j  i  j  i  n  i  t  nt  '  t  n  i  n  i  J  t,  u  n  rite  t  n  unvju  j  r\  i  n  i  u  w  9  1  ntwen  1 

30  4'RETURNINC  CONTROL  TO  THE  TERMINAL. 

ATI  1! 

100  4ASSIGN  JSHPF5.PTN  F0P012  ! CHANGE  JSHPF5  TO  CORRECT  STATION  LIST 

125  VASSTGN  PIDT.PP7  TOROOP  ! P1T0T.TPT' T5 ~H E T I CUITE  FILF 

ISO  4ASSICN  PRINT. PPT  FQR004  JPRINT.PP'T  IS  LIST  FILE 


300  NO  00  NOT  READ  IN  PREVIOUSLY  STORED  COMMON 
500  YFS  INITIALIZE  DATA  SELECTION  PARAMETERS 

600  4,?, 1,6, *,6/  'CONTROL  NOW  RETURNS  TO  TERM! NIL  FOR  INTERACTIVE  SESSION 
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50  S!  *•*»*♦*♦♦*♦♦♦  TABLE. COM  ♦*♦♦♦♦♦♦♦♦♦♦♦♦ 

100  i'TASK  is  to  CRFATE  TWO  PLOTS  CORRESPONDING  to  figures 

- 7UU - ITL  W  5  rtf  F*Tm**lT'  BLUE'  'COVET  TFFT0RT.~TWF'Fm7 

300  \'F1GU»E  IS  BUOYANCY  FR’EQUFNC  Y  N  AS  A  FUNCTION  OF  DEPTH 
~  *00  i'ANB  POSITION.  THE  SECOND  IS  VERTICAL  0! SPL ACEWENT. 

500  % ! P0TH  A»F  CRFATEO  USING  TABLE  SUBROUTINE  OF  PFPLT; 

~  ROD  TITHE  FIRST  FIGURE  USES  THE  OEEAULT  PLOT  SPFTT FT CAT  IONS . 
700  AASSTQN  PLOT.PPT  FOR008 

- BOO - STVSTUN'JSHPFS.PTN  FUROl? - 

900  RUN/NODFB  PFPLT 

1000  NO  DO  NOT  READ  IN  PREVTO03L?  STORED  COMMON 
1100  YFS  TNTTIALI7E  DATA  SFLEtTION  PARAMETERS 
ITOO  1,7/  ITNITIALI7E  PLOT  PIRWETERS'TN  TABLE 


1300  16/  IFNTFR  NUMBER  OF  STATIONS  IN  PLOT 

- IT50 - 57 - fT  TTTIPST  TTVEl  "PL'OTTFC - 

1600  YES  INPUT  NEW  PLOT  LABFL 

1500  LOF  FS5:  n,CPH 

1600  NO  00  NOT  USE  DEFAULT  AXIS  PARAMETERS 

1700  /  'USE  THESE  MIN  AND  MAX 

l BOO  YES  CHANGE  X-AXIS  LABEL 

- PTOO - RW  FAST  BE  ORTGTN - 

70 00  YES  CHANGF  Y-AXIS  LABEL 

7100  KH  NORTH  OF  ORIGIN 

7700  1,0/  ‘PLOT 

7300  1,1/  TFHANGE  PrRAWFTEPS  FDR~  5FCUND  PLOT 

2600  16, ,,100,3000/  1100  IS  DISPLACEMENT  AXIS  IN  OB 

- 7V5TJ - ^ - 

7500  YFS  CHANGE  PLOT  LABEL 

7600  LOF  FS5:  VFPTTCAL  01 SPL ACE HE RTS,  DB 

7633  NO  00  NOT  USE  OEFAULT  AXIS  PARAMETERS 

7666  /  !USE  THESE  NrN,PAX  VALUES 

2700  NO  00  NOT  CHANGE  X-AX3S  LABFL 

- Tirtro - NIT  OO'NOT  CHANGE  T=DCrS~  XAffEt - 

7B16  6,3,0/  'CHANGE  PLOT  PARAMETERS — AVRGS 

ZB37  / 


2868  / 

7P66  ,.05/  IRESCALF  DISPLACEMENTS' 

2880  ,50/  'PLOT  DISPLACEMENTS  RATHER  THAN  N 

TW9TJ - 6TT77 - fRTTUR  N  TTT  FEPLS - 

7900  1,0/  'PLOT 

300U  7/  rEXTT  PROGRAM  -  -  . 

3100  YFS 


r»  *♦***#**♦*#♦**  oYwrr.cnF  »*****»tp*»**»» 

♦ ! TASK  IS  TO  CREATE  RPC?  COMPATIBLE  OUTPUT  FRO»  *.AVG  FILES  AT 


kUlllitll 


TOO 

WOO 

<>00 

1WO 

1100 


1250 

T?uo 
1800 
3  WO 
3500 


3700 


1 ! XLONG»OYN  HT  REF  TO  PF  AT  LEVEL  507T0,S0,R6E  SPECIFIC  VOt.TIWE 
3 II  JULIAN  DAYS  FROM  1  JANWFCTMALHOURSTTFURKATIS 
t • 1 N  VA5,IS,2Ff8.?>,5F8.3>  28  PAY  81  NAN  BRAY 

♦TNUWRFR  OF  STATIONS  OUTPUT,  OUTPUT  YART1TUFSY  AND  REFERENCE  PRFSSURE 
t ! FOR  DYNAMIC  HEIGHT  PAY  BF  CHANGFO  IN  AVRGS  BRANCH  3. 


•  ;  u  i  iv.  nc  iun  i  uu  i  ryi  i  i  u  inpniL  LCul  inc  (CB}| 

t! 

♦  ASSIGN  JSHPFS.PTN  F0R012  ! CHANGE  JSHPE5  TO  IPPROPR I  ATE  STATION  LIST 
RUN/NUOEB  PEPLT 

Nn  no  MOT  RFAD  IN  INITIALIZED  COMMON 
YF  INITIALIZE  OATA  SELECTION  PARAMETERS 


•t  »  r  »  i  *of  :tc«u 

8*3,17  ! SET  OATA  VARIABLES 

1000718,19. 13, 18, 10, 7, SO, 55/ 

/  _ 

/ 


YES  INPUT  NEW  FILE  NAME 
TEST. 'DAT  “ 

IS* l 7  fRANGE  OF  LEVELS  FOR  WHICH  DH  WILL  BE  OUTPUT 

8,177  TRFTURN  CONTROL  TO  PFPL5 - 

7/  ‘EXIT  PROGRAM? 


SSORT/KFY ■(POSITION:?, "S I ZFS6)  TEST. OAT  TESTP.DAT  • SORTS  BY  PRESSURE 
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50  POTEN*  rrfNSs  SHORT  DOCUMENTATION 


100  KB#  1SW  JSW  KLIST  DESCRIPTION 

~T50 - 0  -  - - - - SHORT  DOCU«EN?mON - 

200  1  «  -  -  COMPUTE  REGRESSIONS  FOR  ISW 

100  SEQUENTIAL  ST  ATT  TONS. 

*00  2  INITIALIZE  DATA  SELECTION 

100  PARAMETERS. 

*00  3  0  SET  PARAMETERS*  SHORT  LTST. 

TOO  I  - - - - S  ET-  FlRTWnTRTr  FULVTT5TT 

800  STORES  COMMON  IN  FILE  RPTCM 

QOO  A  l  -  LU  A VRCP  AVERAGING'  SUBROUTINE. 

1000  5  _NtTTJZSED 

1100  6  -  -  -  LIST  LABEL 

1300  7  NOT  USED 

nrrm  *  - - - - - - 1  i\i  ncrrmy  *  tub  h  a  tt  ww - 


1500  R 
1600  10 
2000  11 
T? 


LIST  DATA  RECORD. 
NOT  USED 

SET  tSSN  f SWITCH) 
TJTTT  PROGRAM. 


ARRAY. 
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93  C  CONPOTEN.EOR  FILEi  01MENSI ON, COMMON  AND  EQUIVALENCE  FOR  POTFN 
96  C  AVAILABLE  POTENTIAL  ENERGY  PROGRAMS.  N.BRAY 

- ^ - c - 

100  PARAMETER  KCM-  735 

700  BYTE  LBtPROVER 

900  C 

4T3  C  DIMENSION 
966  C 

~*>U5 - DIMENSION  KHOGYTWJ  ,KBUF  ( 46 1  ?VR IT) - 

600  DIMENSION  KPTCNI KCM ) 

650  DIMENSION  PRESS  I  33001 


- niMMOFTL'T  Y  PTE  i'NIFWn  CON  ,'  1 5  HFi  K  C  AS TVD l  V,  TFR#  L  PR 

COMMON  xlat,xlqno,wgt,xlto,xlgo 

COMMON  LBBLfSI  «LRL'f  ltr*NSC(6in  VNRftl60)  ♦jNSECTIDn 
BFGTNNTNG  OF  OATA  BUFFER  XBUF  . 


700 
716 
737 
750"* 
775 
BOO 
B25 
170 
875 
“ 9UTT 
1000 
noo 

1125 
TT5TT 
1175 
7700 
1300 
1900 
1500 
T60TT 
1700 
7  717 
1729 
1716 
1750 
1805 
1850 
1856 
1959 
1862 
1879 
1886 
2000 
~7IW~ 
2200 
2100 
2900 
2975 
2950 
-7875“ 
2500 
2513 
2566 
7600 
2700 
7750" 


C 

C 

C 


C 

C 

C 


BLINK  COMMON 

- ctJWNWTnrr - 

BEGINNING  OF  STORED  COMMON 

COMMON  K T T X , KL t $ T * KOOT, KTP ,TSW,JSH ,  K  B  R 

beginning  of  header 


c 

c 

c 


COMMON  KTTPF,M8DrtlRFC<N^7IPPjXS>iil.l»L2 
COMMON  PF,TO,SO,‘OVO 

CON* ON  P  T  *  THC»'51Er,DVF  - - 

Ca**riN  PM,  THM,SN«OVM 
COMMON  DH,TF,XPF 

Common  CP<8),Zl,CTf8),2?,Fl.F2,E3 


IT 

C 

C 


C 

C 

C 


FND  OF  KBUF 

COMMON  DFLP, OP 

COMMON  A1,A?» A3, N1,W7VN1 - 

COMMON  C  ( 6  )  ,  I STNM61 

- C-ftffwON  TTRUTS ,TPRITJ,PROYFR - 

COMMON  JM AX 

END  OF  STORED  COMMON 

COMMON  PI  3300 >,T( 3300)  ,S 1 3300) ,OVt 33003 


COM  MON  T  H I  3  3  00  T?  P  T I J  3  0  0 ) , 11  O  100 I - 

COMMON  BI8)  ,BP<8),BTm,BA(8),C0136),MRf8) 

COMMON  EYI6),  JEYI6)  -  “ 

COMMON  WTI600I , JSHP 1 600) 

COMMON  0AT»Xf3350V0Y?)  ~ 

COMMON  JSTN, JRMAX,Ml,M2 

COMMON  tLRge*KXrr - 


c 

c 

c 


FtnmrALFNCE 

FOUTVALFNCF 
fouivalfnce 
- foittvacencf 


I X  WTTT,L  TYPT  T  ,  TICBOF  iBCTYP  F  ) 
<P01F»F,A1)  ,CVR,PF)^tKTTX,KPTCN) 

I PRFSS  ,OAT  AX) - 


2B00  C 


1  100 
200 

C 

c 
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INDEX  RECORD  FIELDS  DECOMPOSED 

USES  LABELLED  COMNDM  X  USE  INCLUDE  STATEMENT  TO  MERGE  INTO  PRODS. 

300 

c 

RON  MAR  27  1980  ~~~ 

400 

c 

ARRAY  TOXREC  CONTAINS  THE  INDEX  RECORD 

500 

C 

ALWAYS  THE  FIRST  RECORD  OF  A  DATA  FILE 

-  R - 

■4  600 

C 

IOXREC  HAS  THE  SANE  STRUCTURE  IN  THE  SUBINDEV  FILE 

'  700 

800 

c 

COMMON/ TNOX/  I0XRECI256) 

• 

1000 

1100 

1200 

TWO 

1*00 


1500 

1600 


1800 

'1000 

2000 


2200 

2300 

2*00 

2500 

2600 


e  r\j\j 

2800 

TWO 

3000 

TIOO 

3200 


J  J  vu 

3*00 
“  3500 
3600 
~  T700 
3800 


*000 

*100 

*200 

TTOO 

**00 


C  LPGVER  IS  AN  ACSII  DESCRIPTION  OF  LOAOING  PROGRAM  VERSION 

INTEGER  LPGVERf *),LSTREC 

€**•♦•*♦♦*♦♦♦♦♦♦•♦**♦****♦♦♦♦•*♦*♦*•♦••*♦♦*♦**♦***•*♦♦•••♦♦••**** 

C  L 0 AFP  AND  LTtNE  CONTAIN  ASCII  0 ATE  STfMF  FILE  CREATEO 
INTEGER  L0ATE(3)VLTfHEI2l 


VtCE  ANO  EILSPEC  EURO  A  COMPLETE  FILE  SPECIFIER 
INTEGER  FILSPECf 8I*0EVICE 

C  IFWFO  ARRAY  HAS  THE  SAME  STRUCTURE  AS  CTDT8  VAX  FORMAT 
INTEGER  IEHE0C90) 4ICMNTI 35) 

C  CNTRL  HAS  THE  LOCATIONS  OF  THE  BEGINNING  WORD  OF 
C  INFORMATION  FIELDS  0*  THE  INDEX  RECORD 


INTEGER  CNTRL (6  V 

C  VARDES  ARRAYS  CONTAIN  ABREVrATEO  VAR TABLE  DESTRIPTORS 

C  MIN/MAX  VALUES  IVARDFS  CONTAINS  MNEMONIC  IDENTIFIERS 
DIMENSION  VaR0ESM,16T  ,  IVARfiEST  4,161 
EQUIVALENCE  ( KEYWO* IDXRECflll 


LSVRFC  IS  THE  NEXT  AVAILABLE  RECORD  IN  S"U8 INDEX  FILE  1ST  RFC.  ONLY 

FOUt VALENCE  I LSTREC  *  IOXREC  (9~) I  -  - 

EQUIVALENCE ( TFNEOI 1 1  *  I OXREC (1311 

EQUIVALENCE  t  V  ANDES  I  1  *T>  *  fDXRF C  f  1T5TT*  f  fVAR  DF  St  1 4 1  TV’S  OXR  t  C  111  ST  I 
EQUIVALENCE (KSCAN, IOXREC t 105) ) 


EOUI  VALENCE  ( MSCA^IOXREC!  106 ))V(NSCANS**IBXRECf  1121) 
TOUT  VALENCE  (  P  M  TNVTOXRE  C  I  I  I  0 1 V,  f  P  WS  INTVTfTTREC  ( 1  IT  11 
EQUIVALENCE (NT0T,IPXREC( 108)) 

EQUIVALENCE 


2*1  IEHEOC  7 )  « I YR  )  *<t  IEHEO I  8 1  ,IMO>  ,<  rFHEDI  VI  ,’TDA  I 

3*if  IEHEDI Ill  *  TUTSOT*  TTEHEDTT2T*TtT3Wl - 

4/f IFHEDI 1 3 ) * ILNSO), <  f FHEDf 14) *tLNSH ) 

5*1  IFHETJ ri5)  *TNWm  * TTEHEDI16T  *TH Wl  ITTT FHETH  17 
6/<  IEHE0I19), ILTE0)*(IFHEDl20),rLTEM) 


*600 

*700 

*800 

*900 

5000 


'  L\j\j 

5200 

5700 

5*00 

T50TT 

5600 


5800 

5700 

6000 


If  11  iinanrj  in  lluatifll  ianaii  r/j  n  4  m ,  1  1 


8Vt  IFHED(23),TETNE),<lfHEDU0),ISTME) 

94  f  IFHEOf  38  ItTCA’STI,  fTET(EPT?7T*~.JDflTF*T7FHElXf  2  Rr#TW3T) 

X*(IF HE 0(551* ICMNTI 

C***  MMWMMWNHWWfW  V#  **** tWAWAAiTTA  ****  MM  M*  »»  ****** 

EQUIVALENCE 


1701  »  «  iriurcuil*Itn«CU 
2  •  (LOATE  ( 1 )  *  TOXR’ECf  195  1 1  *  (LTIMEd  )*  I  OXREC  ( 198 1 ) 

3 *.(LPGVFR  m  *r  OXREC  1 99  Vf~ - 

C  RMAX  IS  THE  LAST  RECORD  OF  A  OATA  FILE 

C  TTJXEDC  IS  THE  VECTJRrO  E  OF 7E*F  INDEX  FILE  *  TFOT  SINGLE  STAT10I 
4* (R MAX* IDXREC ( 209) ) *( IDXLOC *  I OXREC (2 081 1 


i  R.  R.  X  R  R-  R  *  fc  i 


C *************** *****************  ************************************ 

C  ENff  LABELLED  CTJWHON  FOR  TN BEY  RECORD -  '  "  -  - 
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I0O  C  POTfN  m At N  PROG  ♦♦*♦**♦♦♦*♦♦***♦•**♦♦*♦♦*♦♦**♦♦♦*♦♦♦♦**♦***♦ 

200  PROGRAM  POTEN 


- WTT 

400 

"'“TOO" 

600 
700  ' 
POO 

- TOO" 

1000 

TTOO 

1200 

ITOO 

1*00 

1TO0- 

1600 

"ITOO 

1800 


2000 

2100 

2200 

7700 

2*00 

"7700 

2600 

rroo 


c 

c  PTOGRAP  TO  COMPUTE  OF PE PENCE  SURFACES  RELATIVE  TO  PE  FO* 

C  CALCULATION  OF  AVAILABLE  POTENTIAL  ENERGY.  REGRESSION 
C'FTTT  ARE  "AT1F  TO  PTTFS70RE  A  WIT  P7I T  ETfTTl'L  TEHPTW  ATUPF  A7  ' 
C  FUNCTIONS  OF  SPECIFIC  VOLUFE  ANONALV  AT  PFi 


IT 

C 

C 

c 

c 

tr 


JUNE  28  1076  N  FGFONOFF 

TNCLUOE  'CONPOTPN.FOR* 


OPEN  BINARY  FILE  FOR  STORAGE  OF  CONTON 


OPEN! UNI T ■ 10  *NANE«*  K  PTCN.O AT *V ACCESS** 01 RECT**TYPE»*0L0** 
*  RFCOROTYPE-' FfyEO'*  tPECOP0TT7F*RCN*ERR«TtOOl 
1  conttnuf 


TO 

1000 


KIN  -  6 

KTTSr  -~E - 

KLIST  -  * 

KOUT  -  9 
KTP  -  l 

HR  ITE  rKTT5f»  lOOOl 

F0RNATC1H  ,*POTENt  POTENTIAL  ENERGY  PROSRA**» 
C  ALU  -  PTENS - 


2800  GO  TO  50 

"7900  C 

TOGO  C  CREATE  NEW  R  TNAR Y  FILE  FOR  STORAGE  OF  COUPON  tF  NO  OLD  ONE  EXISTS 
-  7100  C 

3200  1100  OPEN!  UNI  T-IO.NANE-'KPTCN. OAT  »  VACC FSS «** OTR ECT*  ,TYPE«»NEH** 

TTOO - * — RE  CUROTYPT  *  *  PlYETJ  * » R  E  COHUS  T7  F*KCM  »  E  R  R*TTOO  I 

1*00  GO  TO  1 

7500  50  END 


tM»J 


400 

500 

600 

TOO 

800 


1000 

noo 

1200 

TTOO 

1400 


€  PTE  NS  SUBPROG  P'OTEN  ♦♦♦♦♦  PTENS.FOR  FILE  ♦*♦♦♦ 
"SUBROUTINE  PTENS 


riTtTTTITTITTII TTTTI TTTTIIITT TTTTTT TTTTT TT T T TT T f TT J III! Jill 


C  PR  DC*  AH  to  CONFUTE  REFERENCE  SURFACES  RELATIVE  TO  PF  FOR 
C  CALCULATION  OF  AVAILABLE  POTENTIAL  ENERGY.  REGRESSION 
C  FITS  ARE  MADE  TO  PRESSURE  AND  POTENT T AL  TERPFRA TORE  AS 
C  FUNCTIONS  OF  SPECIFIC  VOLUHF  ANOMALY  AT  PF.  _ _ 


C 

C  JUNE  28  1976  N  FOFONOFT 
C 

C  HOOIFIEO  TO  ACCEPT  CT078  VAX  DISC  OATA  AS  INPUT  150EC80  N.8RAY. 

c .  .  . ” . ' . ' 

DIMENSION  015 )  *DOC CIO) 


,  - T500 - 

1600 
•  TTOO 

1800 

C 

-■  - 

INCLUDE  ‘COMPOTE*. FOR* 

CHAR ACTER*8  DOC 

- .  . 

a  TWO 

2000 

cr 

KIN  -  5 

— rruo — 

KTTX  *  6 

:  2160 

HR  ITE 1 KTTX  *40) 

7270 

40 

FOPMATUH  *  *  TNTTTA1T7F  COMMON  (YES  OR  NO) ?  '  1 

1  2280 

IF  1  NOYES  I KTN.KTTX ) «NE • 1 ) GO  TO  14 

- 7340 

c 

.  . 

2400 

c 

initialize  data  selection  parameter* 

.Vfli 

~T~ 

2520 

CALL  0ATA1KTPV-1) 

r  2500 

GO  TO  30 

. 

2640 

14 

READIIO‘1 )KPTCN 

-770TJ 

18 

WRTTE I KTTX* 2 01 

2800 

20 

FORMAT ( 1H  , 'INITIALIZE  REGRES5T0N  PARAMETERS 

1  YES  OR  NO)?*) 

,  - 2500 - 

. 

3000 

RFADI10' 1*ENO»10) KPT  CM 

"  ~ 3700 

5 

MR  I TE I KTTX *  2  5) 

~  i  3300 

25 

FORMAT! ‘OWHAT  TS  THE  RESOLUTION  OF  THE  TNPUT 

DATA,'  IN  OB? *1 

“  3400 

READIKTN*  *)OEUP 

r  3450 

?  -  H  ■■  —  -■  ■  ■ 

KLIST  -  6 

ra - - - 

1 


kin 


1  3600 

'  4  TOUT) 
*  3900 

VO  00 
M  4100 


hum  uii  oui  nntJoPt  kl 

1005  FORMAT ( IH  ,  •  POTENtKB R  •  ISM,  JS ¥*RL IST**OtJT, KTP yK IN*  *T,  714) 

R  E  AD IMTH , *  )  KW  ,’T  SNfJSN,  K  LI  S  »  yR  OUT  *  K  TRVR  IN 
IFfKBR.GT. 12IKBR-13 

TF  CRBirnTOOTllWiTT  ~  - ~ -  “ 

12  GO  TO! 100 *200 *300, 400, 500, 600 *703. 800* 900, 1000* 1100* 1200, 100, 


■ 

H 


4200 

4300 

4400 

5500 

4600 


4800 

-4500 

5000 

5100 

5200 


5400 

5500 

5600 

TTOO 


C  ♦»»>»♦»♦*»» *TNIT I ALT7ATION 
15  KTVPE  •  0 
MHOR  •  150 
MPUF  •  46 


NPR Ill  «  4 
NPRT7T  *  TT 
NPR  f  3 1  -  17 
NPR  141  *  24 
NPRI5)  •  50 


NPR ( 7  )  «  100 
NPFTOJ  -  700 
NPRI9I  •  500 
NPRTTOT  •  500” 


5900 

— BTTTTO - 

6100 
“  62M 
6900 
6900 
6500 

“MM 

6  700 
6000 
6900 
7000 
7100 

- T2TT0 - 

7300 

7400 

7500 

7600 

7700 

— 77T0 - 

7720 

7730 

7740 

7750 

7800 

— 7900 — 
8000 
81 00 
8200 
8700 
8400 

— 8500 - 

8600 

8700 

8800 

8900 

8925 

— 8980 - 

8975 

9000 

9100 

9700 

9300 

9400 - 

9500 

9600 

9700 

9800 

9900 

toooo — 
10100 
10200 
10300 
10400 
10500 

10600 - 

10700 

10800 

10900 

11000 


NPUdll  *  0 
NPRI12)  *  2 

—  9P9  rrrr  -*—7 - 

NPR (14)  •  13 
NPRI15)  -  13 
nsc(H  *  o 

NSM2)  *  400  - 

NSC (31  •  1000 
NSC(4>  •"TITO 
NSC  f 5 )  «  3500 
NSC (6 )  «  6 
NSCI7)  -  5 
NSC ( 8 1  «  4 
NSC  19)  -  3 

- TTVC1T9T-7 - 

NSCIli)  -  20 
NSC  1 1 ? 1  *  30 
NSC  C 1 3  I  -  40 
NSC (14)  -  50 
NSC (151  -  *0 

- pr^mrcT?”"-  ~fiff - 

ISHP  -  'GY* 

recurs  -  i 

IPPDJ  -  3 
GO  ro  5 
30  DFLP-2. 

16  VRIJ)  -  0.0 

PPIEF  -  6.0 
A 2  *  3.0 

#3  •  3.0  - 

ITYPF  -  1 

- TT8VU - 

N  -  2 
NOP  -10 
KSW  -  1 
WGT  *1.0 
00  17  J-1,16 

- rrs9tjr<rtr - 

17  CONTINUE 

GO  TO  18 

************  SELECT  OAT  A  AND  COMPUTE  «1 

TOO  C All  COrPS  - - - 

GO  TO  10 


C  IN ITTAL  T  7E  OATA  SELECTION  PARAMETERS  «2  ♦♦*♦**♦♦♦***♦♦♦*♦♦ 

C  '  •  - . . - 

200  CALL  DAT  A ( K  TP  ,-l 1 

C  ************SET  PARAMETERS  «3  r*9 ***4******r************ 

300  NRITFIKLIST,3OO01!CON*KSW,A2,A3,HGT,POfFF 

- ppot  » i  tzm* K  3  W7  A?T«3  ?  WGT/PPt  PF - 

WPITEIKLIST  , 30201  DEL  P 

PFA0CKTNf9JOHUr 

iFirswno, 10,310 
c 

C  SU8P0UT INF  TO  ACCEPT  REGRESSION  PARAMETERS  IN  ENGLISH  A NO 


310  CALL  PARAH 

WRTTEIKLIST,3?0» 

C  PPTNT  OUT  POTEN  FORMAT  Pit AHFTFRS 


moo 
11200 
It  560 
11400 
1 175DO 
11600 
moo 
11800 


1  1 

12000 

12100 

12200 
12300 
12400 
00 
12600 
12700 
12800 
12400 
13000 


13200 

13250 

13300 

13350 

13400 


E GENA:" (  *  0SECTT0N  LEVEL  LEVEL 
1H  , 'NUMBER  NUNBER  INTERVAL 


INDEX 


START 

PRESSURE 


«  Of 
TERNS 


«  0F»,7 
CYCLES') 


00  330  I-1,NSE 
11*1 >NSE 
I2-d?PNSE 

M«  I TE  ( KL  1ST  «  3381  T,  NPR  (  X »  ,  NPR I  fl),NPR  I  f  ?  »  ,NSCCl  >  VtfSCl  II >  ,NSC(I  2  > 
335  FORNAT 113*615) 

- — rnO  CONTINUE - 

C  CHANGE  OR  LIST  DATA  SPLfCT I  ON  PARAMETERS 
CALL  0  A  T  A  f  K  T  P  ,0  I 
C 

C  CHANGE  OR  LIST  DATA  LABEL  I  IDENTIFIES  THE  DATA  SOURCE » 

C 

HR ITEIKTTX, 3015 MLBL  d  >,1-1,13) 

IF  f  NOYES ( K IN, RTTXI ,EQ • 1 ) THEN 
NRtTEIRLIST, 3-010) 

READ!  KIN, 6005 MLBLIR  >,K«1, 13) 

END  IF  —  ~  ’ 


niLl: 


IriJ 


14200 

14300 

14400 

14500 

14600 


1*  r uu 
14800 
14400 
15000 
T5T00 
15200 


17  3UU 

15400 

15500 

15600 

15700 

15800 


1  -I'tvv 
16000 
I6TOO 
16200 
15700 
16400 


AD  >DV 

16600 

T6TOO 

16800 

T5400 


IF( JSW.NE.?)THFN 
HRITEf  10'DKPTCN 
ENOIE 
GO  TO  10 


FORNAT  (1H  ,'TC0N,.K5W,S0P,S0T*iWGT,P0IPF*,/,2I4*3F6.?,f7.0» 
FORNATdH  ,  *  NSC  SP  *N»  NOP r*  / ,51 5,1013 ) 

F  OR  NAT  1 1H  , • PRESSURE  CONSTANTS*  *7  , I5f 4) 

fornatiih  ,  *  insert  label  <2?  char.*) 

FOR"ATdH  , 'INPUT  NEW  LABEL?  OLD  LABEL  IS:  %/,?H  ,13A4) 


*•♦•****♦*•  *AVER AGING  SOBROUTlNE  r^  **# ♦«»**♦* *♦***♦***»*♦♦♦ 
400  CALL  AVRCP 

GO  TO  10  '  ' 

mmmmmm  as  NOT  PRESENTLY  USED 


Mil 


C  NCR  -  5 

C  KTNP  -  5 

C  JN AX  -  23 

C  ROUT  -  I  - 

C  501  00  505  R-9,13 


V*  7V7  N  ■ 

C  505  CRIK,*I  -  0.0 

C  507  HRTTEIRTTX,5010)RQUT,NGR, JNATfRTNP 
CS010  FORNATdH  ,  '  AVOVF  : ROUT ,NGR,  JNAX,K INP*  ,7,4 1 4 ) 
C  51?  EE^0rRTN,4)RWTVNtrr,  JWAX^RTWr 
C  DO  530  J- 1,NGR 


IIU  7fU  J-  -  I  ,  jn 

C  REAO(KTNP,RH,NST,KPR,  fD(K),R-I,5) 

C  1 1 PR  I T 1  -  RPR  — ■  " 

c  no  520  N-q,i3 
C  5?0  CPI T ,NI  -  CRU,NI  ♦  Of N— 81 
C  530  CONTINUF 


C  00  540  r«l,J*AX 

C  540  CRIT,J1  -  CR  II  *  31  FFLTTiTf  NCR  1 
C  545  00  550  I«l,JNAX 

C  WR  TTF  TRTTUT  ,  5000 1  TYN5  T  ,  I TPP  fT7  VTCRTT  , R7,K - 9 , 1 7T 


79 


17000 

17100 

172U0 

17300 

17*00 

17500 

17500 

17900 


18100 

18700 

18300 

18*00 

18500 


18700 
1 8000 
18900 
19000 
19100 
— T970U" 
19300 
19*00 
19500 
19000 
19800 


70100 


c 

c 

XT 


850  CONTINUE 

_ KOUT  -  24^>i>>tv^ijuT 


C  GO  TO  (501»50?»‘5*5,10)I$W 

C5000  F0PMATf2I*,r5i>5F10.*l 

C  ♦♦♦♦♦♦♦♦♦♦♦♦LIST  DATA  LABEL  *6  ♦♦♦**♦♦♦*♦♦♦***♦*♦♦******♦*♦*♦**♦♦♦<1 

500  HR ITE  < XL I  ST* 6005 i f  LB'Lf  ft ) *K -l , 13 ) 

GO  TO  10 

_7'mr 5 — Fromm  tr 

♦♦♦♦♦♦♦♦*♦♦♦  #7 

703  MFOF  -  0 

707  CALL  REAO(KQUT,KBUE»  MBUF, I EOF  I 

IF ( I EOF ) 720 ,70*  ,70* 

70*  MEOF  «  0 


Till*) - 

NOT  PRESENTLY 


USED  ♦♦♦*♦♦*♦*♦♦♦**♦♦♦*♦♦*#♦♦ 


-Ttrs — rrnmrPF  T90o^9orri7io 


710 

715 


770 

725 


00  718  *.i,*HO* 

XHOG(M)  «  KBUFfM) 

GO  TO  800 

TF I MFOF) 10, 775,10  '  -  " 

MFOF  -  1 

- pg  TO- TO - 

703  GO  TO  10 

♦♦♦♦♦♦♦♦♦♦♦♦LIST  HEADE*  RECORD  *8  ♦*♦♦**♦♦****♦♦♦♦♦♦♦♦♦♦♦ 

800  WPITEfKLIST*  80001 ! LB 8L f X ) , K» 1 , 3 > ,  XL A T , XLONG, XLTO, XLGO 

HR  TTE I  XL  1ST,  8005 RTY PF.  WDimTON,  15M7  JOAr,TRR,LTR 

GO  TO  10 


8000 rtTtm«TT7T 3  A  *  „*'F8  .  3  1 - 

8005  FORMAT!/, ♦  Typ*  MOHR  ICON  SHIP  CAST  JOAV  IPR  LPR*,/,BI5 
C  ♦♦♦♦♦♦♦♦♦♦♦♦LIST  DATA  *ETORD  *9  *♦******+*♦*****♦♦#*♦♦♦♦♦ 

900  WRITF!KLIST,9000)IRFC,PF,T0,S0,DV0,PM,THM,SM,DVH,71,72 

903  IFTISSWC8))  905, 'TO,  10 

905  WPITF (KLIST ,90051 ICP l K 1 , K -1,N) 

URTTFna  rrr,  wpm  ct  no  ,k  -1 ,  m> - 

GO  TO  10 

,  1 2 ,2  IF  7.  T,  F7. 3  *F7  .3  ,F7 . 2 1  ,  P6.2 ,FV.  *  1 
,3HCP  ,  6F  l 1  •  * ) 

, 3HCT  »'6F1 1, *  I 

TAPE  FUNCTIONS  »10  ♦♦♦♦♦♦♦♦♦*♦♦♦♦♦♦♦♦*♦*• 

PTA  PmtHf  JSH,KLTST) - 


20200 

70300 

20*00 

70500 

20600 

70700 

20800 

70900 

21000 

71100 

21700 


71300 


71*00 

21500 

21600 

71700 

21800 

2T9O0 


22000 

22100 

22200 

22300 

27*00 

77800 


22600 

22700 

22800 

22900 

23000 

73100 

23200 

23300 

23*00 

23500 


) 


9000 

9005 

9010 


F0P8AT11H 
FORMAT ! 1H 
FORMAT! 1H 

C  ♦♦♦♦♦♦♦♦♦♦♦♦MAG 

Cl  000 


TTAttr 


C  XL  !  ST  -  6 

1000  GO  TO  10  - 

C5  ♦♦♦♦♦♦  SFT  ISSN  SNI7CHFS  »ll  ♦♦♦♦♦♦ 

1100  HR  ITE!  XTTT,1T50)  tKfTH  ,  r6)TTTTS9IK  )  ,X^T,’163 

1150  F0RMAT(7(1H  ,.X  ,161*,  / 1  ,  *  ENTER  K, l SSH! X ) » ) 

- yy  ATH  X  I N  ,-TTT  XYTS  S  W-TX  F,~M -1,161 - 

GO  TO  10 


C 


C  ♦♦♦♦♦♦♦♦*♦  FYIT  PROGRAM  *12  ♦♦♦♦♦♦♦♦♦♦♦♦♦♦*♦♦♦♦♦♦♦*♦♦**♦ 

1700  HR  T  TE  !  X TTX ,  1 21 0  ) 

rE!NOYES(XIN,XTTXl.NE.l)G0  TO  10 
- - - STOP" - 


1710  FORMATUH  ,»EXIT  PROGRAM?*) 

C*R  POTEN!  SHORT  noriTPETTrATTON— 8ITAWOT  0  *♦♦**♦**♦•»**♦ 


1300  0PEN(UNIT»50,NAME«*P0TEN.00C**TYPE  *  *010* , READONLY ) 


00  1350  N« 1,700  1 

READ!  50, 1325,  PND-131 2  MOOCH)  Vl»l,8)  | 

1350 

1312 

1325 

1330 

- 1  ^wra-T. 

*"  H  r  i  “  1  I  *  ,  l  HoM  UuC  1  1  1,1*1, of 

CONTINUE 

CLOSE 1UNIT-50T 

FORMAT  1 8  A  8 ) 

FORMATUH  ,839)  '  “  - 

— 

Ihhl 


COMPS  SURPROO  POTPn  ***♦♦******♦♦**♦*****♦♦**♦♦*♦*♦*♦♦**♦ 
**♦*♦♦***♦*»♦********♦***♦********♦♦*♦*****»*«#***♦****♦* 


LlM.hhllkRft.'l: 


******** *  +  * ************ ************************ *********** 


TO  COMPUTF  RFGRESSIDN  CDFPFICIFNTS  AT  SPFCIEIED  DEPTHS. 


JUNE  28  1976  N  FOFOMOfF 


1*1*1 


1000 

1100 

1200 

1700 

1*00 


1600 
T700 
1800 
“21 00 
2200 


(alt 


N.&RAY 


UiM.BiiLl.lll 


l»I' 


INCLUDE  *  COMPOTE’N.EOR* 


lllfl 


i*ni 


hUkiJiki 


NUMBER  OF  S  T  AT  TORS 


100  CONTINUE 


INITIALIZE  AND  ACCESS  INOFX  FILF  AND  CRUISE  INFORMATION 


2*00 

2800 

2600 

mm 

2800 


rX'lthi 


3000 

TIOO 

3200 

3300 

3*00 


CALL  DATAIKTP.21 


RFGIN  COMPUT ATI ON  FOR  ISW  TOTAL  STATIONS 


IF  1  TSH.GT.LLRECHSW-LLREC 


RF/TO  STATION  HEADER  FTO"  UNIT  KTP  WD  CHECK  IF  IT  HFFTS 
SELECTION  CRITERIA 

READ  TFMPEPATURF  A NO  SALT  NTTY  DAT*  FNTO  DATA  ARRAY. 


*000 

*T00 

*200 

*700 

**00 


GO  TO  200 
106  CONTINUF 

RFTURN  TO  PTFN5 


*600 

*700 

*800 

*900 

8000 


COMPUTE  REGRESSION  VFR5T0N  OF  DATA 
IF  TSSWI13)— 1  OUTPUT  TO  FILE  * . REG 

PTSCFLLANFOUS  FN  PORN  ATT  TIN  MAY  BF  RFOUESTFO  TO  BF-  PRINTED 
TO  FILF  PRINT. PTN  fKLIST-*>  BY  SETTING  ISSW  VALUES. 


8200 

8300 

8*00 

8800 

8600 

"8700 

8800 

7900 

6000 

6100 

6200 


KTYPF  DISTINGUISHES  BFTRFEN  HEADER  AND  DATA  RECORDS! 

O'-DATA,  1-HEADER. 

KF.KT.K*  APE  INDICES 
N  IS  POLYNOMIAL  ORDER 

NT7P  FS~r  UF‘  DATA  C7CLFS  D  VER  "WHI CH  REGRESSION  IS  PEI 
KERR  COUNTS  THE  #  OF  REPLACEMENTS  MADE  BY  SUBR  EDIT 
TN  EACH  PFORFSSIWT  INTERVAL 
IPR  AND  LJP  KFFR  TRACK  OF  PRESSURE  AS  AN  INDEX 

tret:  indexes  thf  levels  pf 


6*00 

SSOO 

6600 

6700 


KF  -  2 

N  -  NSC  I NSFCTTDN*1 1 

NOP  -  NSCI  2*NSECTinN*U 
XNDP  •  NDP 


MOO 

7000 


KFRR  -  0 


82 


7i  t ro - ptfc  =~i - 

7400  c 

7800  C  CO*PuTF  REGRESSIONS' 

7600  C 

76T3  C  J**r  TS  THE  TOTAL  NIJWHER  OF  LEVEXT. 

7666  C 

-7GW2 - IVOnTT  WvrmiWIX - 

7714  P(W)«PRFSS(*t 

7710  T(W)-nAT*Y(«»l  I 

7746  S(H)-DATAXf 8*2) 

7770  2188  CONTINUF 

7800  ?10  00  270  J-1,J*AX 

-7890 — e - 

7900  C  SUBR  JPR  COMPUTES  CORRECT  PRESSURE  PF  GIVEN  SECTION  ANT) 
8UOO  C  ENTER  VAL  INF  OR  NATION 


8100 

8700 

8100 


10600 
10700 
10733 
10766 
10800 
10900 
11000 
TTTT70 
11040 
11060 
11080 
1 1 100 
13400 
11500 
13600 
11700 
13800 
13900 
14000 
1 4000 
14900 
15000 
18100 
~TWo" 
18300 
18400 
18800 
15600 
18700 
~  1 8800- 
18900 
16000 


C 

IP  *  JPR  (  fRECVNPRiNSECTIONT 
Iff IP.FO.NSCIKF) I  THEN 

”7157 - ff'~m  NS  mmUSPTT TO1TT - 

NOP  -  NSC(KF»2*NSECTI0N> 

XNOP  -  NOP 
KE  «  KF  ♦  1 

EN01F  - 

INO  -  (  IP-PRESS<m/DELP  ♦  1 

- wt  ,  tN0-N0P77 - 

52  -  INO»NOP/:2-l 

TFINl.LT.llTWPr  - 

HIM  \ 

H2-N0P  '  . .  . 

ENDIF 

- IFIW2.G!. JRNAXIGO  10  280 - 

C  IE  PSSWC5I--1  WRITE  OUT  SCAN  «,  SCALED  PRESSURE*  TFNP, 
C  SALINITY.  “  - 

C 

IF  f  TSSW  T  8 1  1216  *717*  717  ' 

216  WPTTFIKL  I  ST,  2160MK,  P !  K  )  *T<  K  I  *5  <  K  >  *K  *02  > 

7TF0 — ^EnROATirH  ,1 4Y3FO.  3  1 - 

217  CONTINUE 

C 

C  PERFORH  REGRESSIONS  OVER  INTERVAL  CORRESPONDING  TO  PF 

C  FIRST,  FIND  WEANS  OF  P,S. 

C  * 

220  PF  «  IP 

P N  «  0.0  . 

sw  .  0.0 

THN  -  0.0  - 

0V8  -  0.0 

- T0-a  0>q - 

SO  -  0.0 

DVO  •  0.0  "  - 


16100  XN  -  0.0 

16700  231  00  710  *-Pl*N2 


16300 


16800 

16600 


P*  »  PH  ♦  p(N) 

716 - SR~-  5N  ♦  STWT 

PH  -  P«/XNOP 
SN  •  5W/XNUP 


16700  238  00  280  N  -Hl,W? 

16500  C 


16900 

17000 


l  4100 

17200 
17300 
17600 
I T800 
17600 
”17700 
17800 
17900 
18000 
19100 
18200 
“18100 
18600 
18900 
18600 
18700 
18800 


iOTVU 

19000 

19600 

19800 

10600 

19700 

HPTflOO' 

19900 

711000 

20100 

70700 

20300 


20800 

70600 

20700 

20600 

20900 


C  CALCULATE  POTENTIAL  TF*P  AND  SPECIFIC  VOLUME  ANOMALY 
C  RFEFRRFO  TO  PE. 

C 

2390  THfM)  .  THETA(R(M),r(My,S(M)yPE) 

O'VCN'l  «  OVA(PF,TH<M> ,SIM)) 

7382  thm  -  thm  ♦  rmn) 
nvR  -  dvm  ♦  ovimi 

P  T  <  M )  -  P(M| 

TTTwy.-THT«1 - 

OVX  -  OVIM) 

C 

C  Fl,E?  ape  hin  and  MAX  SPECIFIC  VOLUME  ANOMALY*  WITHIN 

C  TNF  regression  interval. 

C 

TTTM-M 1  216,7167717 - 

736  FI  -  DVX 
F 7  -  OVX 

237  IF (0VX-F1  1  2372,738,238 
7377“  FI  -  OVX 
738  IP  (P?-0VX)2382,'239,239 


r  f  ~  u*  * 

239  CONTINUE 

TF( ABSI PI MI-PPI-POIFF 1260,260,780 

C 

C  AVFffACF  T,S,OV  OVER  PF  ♦-  POTFF - 

c 

7T0  TO-  -~T0  ♦~TT  61 - 

SO-SO  ♦  SIMI 
OVO  -  OVO  ♦  DV(M) 

XN  -  XN  ♦  1.0 

780  CONTTNUF  - 

THM  -  THM7XN0P 


OVF  -  PVM 
TO  -  T 0 7 XN 
SO  -  SO/XN 
DVO  -  OV 0 /XN 


21100 

71700 

21300 

71600 

21800 


C.  A  UUU 

21700 

21600 

21900 

27000 

22100 

"77700“ 

27300 

77600 

22800 

22600 

22700 


(4QUU 

22900 

21000 

23100 

23133 


2803  CALL  LSFT 
C 

C  IE  TSSW(IO)— 1  PRTTrT  OUT  REGRESSION  COEFFICIENTS  “FOR  THIS  LEVEL 
C 


781  00  2610  M-M1,M2 

DVI  *  0VAIFIM3  ,TIM|,'5(M1 1 

PTD  -  PTI")  -  PM 
TTO  «  TT(M|  THM 

7910  WRITE  (KLIST,?8ll)*,P  (M),THIM)  *5<H|  ,  OV  I  ,’OV  (  M  )  ,P  TD,  TTO 

- \ - ,71777 - 

7811  FORMAT  1 1H  ,I6,E7.1,2F7.3,3F7.2,F7.3,X,F6.3,F7.6<2F3.0» 
WRITE(XLTST,2818MrPIMl,Wil,Tn,PM 
WRTTEIKLIST,2819) ICTIMI ,M-1,NI,0VM 
7618  FnRMATUH  ,6Eri.81 


C  A2  TIMFS  THE  STO  OEV  71  I OEFAULT  IS  3>,  AND  EXCLUDE.  PE-EOIT. 

C  - 

783  rf IKFRR.GT.3 I  THEN 

WRITFfXLIST, 283001  - 


25166 

23177 


25300 


£  MAT  1 1H  ,'KESR  IS  GREATER  THAN  3--E0I3  GIVES  UP#» 
GO  TO  7536 


23194 
2  3T0  0 
23300 
71400 
23900 


2  3700 
'7T750 
23775 
“TISUO 
23025 


C  3D1U 

23075 

^73803 

23091 

23900 

24000 


IF (KERR >2536,2932,253 2 
253?  00  2WMl,ft? 

IF (A8S(PT <M>-PM>-A247 l >2535,2534, 2534 

c  . . . .  ' 

C  CALL  EDITING  SUBROUTINE 


2534  CALL  FO I T f KERR > 

TF  IKERR)2537*<220»220  . 

2537  TEC  IS$wm.EO.-l)THEN 

DVT -OVA I PF,THFTA(Pf H  >  * T (Ml  , 5TM>  ,  PF )  ,  STMT > 
WRITE(KLIST»25370>PIW)»DVT 


X  INTERPOLATION  OF  T  OR  S*> 

“  ENDTF  . . - 

GO  TO  220 

753P5  CONTI NUF  - 

2536  KERR  -  0 


24200  C  IF  OUTPUT  IS  RFOUE3TF0  WRITE  DATA  SUFFER  KBUF  TO  FtLE  4.REG 

75300  C  - ~  -  - 

24400  IF(ISSW(13>  >255*260,260 

25300  253  HR  TTFIKOUTIKITOF —  - - - 

24600  C 


24000 
- 24100 

25000 

73X00 

25200 


760  TFlTSSWCrZl I265V267,767 

265  WRITF(KLrST#2%50)!REC,PF#TO,5rO*OVO,DVNVS,M*THB,71*7  7*N,NOP 
7650  FURMITTIH  ~*T 4‘*F7# TV7FT.  3,3F  7.2 VF 7.7, X, 4*6.3, F7 ^4^7341 

767  CONTINUE 


25400  770  CONTINUF 

75500  200  mrrSWUT>12S5Y215y795 

25600  705  CLOSE (UNIT»KOUT> 

25700  WTO  106  - 

25800  FNO 


300 

400 

500 

“WOO 

TOO 

— rro~ 
«oo 
<roo 
1000 
1100 
1200 
"1300 
1400 
T50D 
1600 
l  TOO 
1800 


AVRCP  SU8PR0C  POTEW  **♦♦*  A VRCR**^** *♦♦*♦*♦*** **••♦******♦ 
♦•*♦**♦♦****♦***♦***♦♦**♦♦♦♦**♦♦♦*♦*•♦♦♦♦****♦*♦*♦♦♦♦♦♦♦♦** 

- subroutine  mrp - 

*♦•■♦•♦*♦**♦♦*♦♦♦*♦***•♦***♦**♦*****•****♦*♦**♦♦**♦♦♦♦***** 

SUBROUTINE  TO  AVERACF  SPECIFIC  VOLUWEANO  COEFFICIENTS.  __ 
JUNE  28  1976  N  FOFQNOFF 

"ROITTFIED"  FOP  TILT  DI  SC  "CTO  78  FOKNA'T  15DECB0  N.‘  BRAY - 

INCLUDE  •COHPOTfN.FOR*  " 

DIMENSION  - 

DTNFNVTUN  TR  riWTTV  I  ,  V¥17TT  100 1  »CFW1  81  iSVKTTOPl - 

DIMENSION  APF(100),$VI (1001 *EOB( 1001 

dimension  vwiN<iooy,VMAxaooi 

CHARACTER 


2000 

2100 

2200 

71015 

2600 

- 7500 

2600 

7800 

2900 

3000 

3100 


CHARACTER*!  IV1VTV2,TV3 
FQUfVALFNCE 

FOUI VALFNCE  ( CR . IHDG 1 , < PF ,VR l 

FoutvACFNf,  r~ nrrr  rm  y  swg  r  m  cr  i  1 » rur,  vvit  <,mnTvi  tt  ?syi  i - 

FOUI  VALFNCE  t CR f 1 • 1 2 1 , APE ), ( VM IN,CR ( l , 1 2 >1 • < VM AX , CR ( l ,  13  1 1 

READ  IN  STATION  »«S  TO  BE  AVEPAGEO.  ENCOOF  INTO  COR RES ROND INC 
FTLF  NAMES. 


3300  REWIND  12 

3500  OO  61  K-l,IOOO 

3500  RFAn(l?,6l0,EN0»621W,FNAME(Kl,'WT(Kl 

3700  610  FnpMAT  (14,112,3^5.71 

3900  61  CONTINUE 


3932 

3050 

4000 

4300 

4200 


J5TN-K-1 

GNAWE(9:  121«*."AVG* 
ENOIF 


AVERAGING 


4400 

4600 

4600 

4700 

4800 

5900 

5000 

5100 

5200 

5300 

5400 

5~500 

5600 

5700 

5800 

5^00 


100  ISW2  •  ISW  -  2 
rF(TSW2110 1,113, 113 

BRANCH  1  —  INITIAL  AVERAGING— BFGTNVHFRF 

101  DO  110  J-1,100 

- 00-t  TO  ~T»1~,"T3 - 

110  CR  t  J , I )  -  0.0 

112  IRWX  -  0  -  '  ' 

BRANCHES  2  AND  3  BEOTN  HERE  — 


ORPN  APPROPRIATE  FTUF,  RE10  HFT0E1C 
00  1200  XK«1»J9TN  ~  - 


1 


i 

•* 

"V 


6000 

6050 


6100 

6200 

6100 

6600 

6500 

6600 


OBFNtUNl  T-K0UT,<NAHF-FNAHE  <KKW*FAWNLY,TYPE-mOr  y 
*  FORM-* UNFOP MATTED*) 


H 

NSW-5 


C  CHECK  IF  OAT  A  S FLECTION  PARAMETERS  ARE  SATISFIED.  tF  NOT, 
C  ~  NSW  IS  fff  TOftNTTT  P*OW  OITA  AS  AY  IWTTATTW  I S  SWT WO. 


rFINSW.NF.5)G0  TO  1200 
NST»NSt*l 
OELB-O.O 
P  PR -0.0 
62-0.0 


B3-0.0 


8000 
-i  ~8TOO 
B200 
8700 
8600 


.MiM 


8600 

8700 

8800 

8W0 

5000 


5200 

TTTCHT 

5600 

550IT 

5600 


10000 
AT)  TOO 
10200 
IOTOO 
10600 


IU7UU 

10600 


C  IF  TSSWI151--1  WETOHTS  ARE  TAKEN  FROM  JSHPiPTN  FILE?  OTHERWISE i 
C  THEY  ARE  SET  TO  l.' _ _ 

rFUSSWI  15)11350,1357,  1357 


iiu  i  —  r  i 

GO  TO  1370 

1357  WGT  -  1.0  ~ ~~  ~ 

137V  TF I ISW2  )  1 20, 120,138 _ _  _ 

C  BRANCHES  1  AND  ?  CONTINUE  HERE  FROM  STATEMENT  #1370 


120  REAOf  KOUT ,ENO«T60 IKBUF 

GO  TO  160  *"  ""  '  "  . 

C 

C  BRANCH  3  I WR IT  E  OUT  AVER  A  GfO  F ILE  S  T  tONT I NOFS  HERE  FROM  STATEMENT  #1370  • 
C 


I  iiiivv&i  kiiiKv/i  rimriti 


135  CONTINUE 

C  OPEN  NFW  FILE  NAMEO  *.  AVG  CORRESPONDING  TO  INPUT  ♦•AEG'*  FOR  OUTPUT 

c  ■  tin  wmrr  ~  ~  - - 


Lxcidiiu 


10800 

T050IT 

11000 


I  t»ii] 


11200 

TITUO 

11600 

TI5O0 

11600 


OPFNIUNI T-ll ,NAME -GNAMF ,TYPE- * MEW  * , FORM*  * UNFORMATTED* ) 

C  WRITE  HEADER  TO  ••AVG _ 

WRITEflllKHOG 


X  BRANCHES  1  AND  7  CONTINUE  HI 
C 

160  TFT T  R  F  C - T  R NFT 1 56  iT67Y  1  6  ^ 
167  IRMX  -  IREC 


X  XRANCH  2  XTJNTTNUFY  TIEBfE” FROM" 
C 

T6T  rONTINUF  -  - 

1675  OEL  -  SVA(IREC)  -  OVM 


|iniJ4  • 


11800 

CPMI1)  •  CPMU>  ♦  PM  -  PF 

1 15  00 
12000 

DO  150  J-T,N 

150  CR(IRFCtJ)  -  CRMREC*  J 1  ♦  WGTPCPMCJI 

T2 100  T 

1 

127U0  C  BRANCH  2  RETURNS'  TO  RFAO  NEXT  OAT*  RECORD  FROW  TYREC 
12300  C 


12500 
T76W 
12700 
T7W 0 
12900 

nnnnr 

13100 

"13700“ 

13250 

13300 

13500 


13600 
13700 
13800 
13900“ 
16000 
“TTTTjrr 
16200 
16300 
16600 
1650 0 
16600 


C  BRANCH  l  CONTINUES  FRO*  S TATpWFNT  #166 
C 

155  CONTINUE  —  -  ~  - - -  '  ‘  1 

158  SVAIIRFC)  -  9VMIRFC1  ♦  WGT60VN 

7NTR7TRTCT  -  “VWTNTTRTTT  ~ VCT*FT - - 

V«AX<IRFCI  -  VNAXfTREC)  ♦  WGT6F2 

svmirfci  -  svimfo  ♦  iicmrwtmt pf,D'Vn*pn*xp *n* nor* f  1**24  j 

♦  lSHP,KCASTtICON,OFLP »  I 

SWCTITRFC)  -  SWGTITRFC1  ♦  WCT -  ] 


CO  TO  120 

160  CLOSE  1  UN  I T •* OUT  1 

CLOSE(UNlT-ll) 

_ IFIKtULT.  JSTNIGO  TO  1200 

TTTTW2 


C  BRANCH  1  CONTINUES  PRO*  PRFVIUUST  STSTEHFNT 
C 

161  on  1605  J-IVIRNT  ~  . . 

V*IN!J1  -  VNINI JI/SWCTfJl 


3 


16800 
16900 
150 00 
15100 
15200 


156 66 
15500 
15600 
15700 
15800 
15900 
16000 
16TOO 
16200 
1 6  TO  0 
16600 
“T6307T 
16600 
16700 
16800 
16500 
17000 


SVKJl  -  SVM  Jl/SNGT!  J) 

1605  SVAfJ)  -  SVAI  JlfSWGTl  J1  - 

TF(  ISW2H80,  180*300 

C  . “ 

C  BRANCH  2  CONTINUES  FRO*  S  TATFNFNT  PRECFFDIWO  »161 


1610  OFLB  -  0.0 
PPR  -  0.0 
KF  -  ? 

N  -  NSC l NSFCTION+1 1 


IF!  ISSWfll I.FQ.-UWRITF!KLlSTt16230> 

no  161  J«I , TRMX  - - 

^  IFUPR!  JfNPR»NSFCT ION  I-NSCfKF  >1161 2^161 1»1612 

NDP  -  NSC ( KF ♦2*NSFCT ION) 

- RT-V-RT-*-! - 

1612  DO  162  I • 1  *  N 

162  CPNCT1  •  CR I J» T 1TSNCT! J1  - 

PF  -  JPR! J,NPR,NSECTION» 

TFl  TSSNtll  > lion *7676*1 625 -  " 

1621  WRITE!KL1ST,162TIPF,  I CPPI11  «  I-1,N  1 


t 


17200  16210  FORMATdH  ,'ARERAGFD  REGRESSION  COEFFICIENTS*  *■*/* 

17300  *  ,PPE5SURE*,2XVrrCFm  %5TrrCFr?TTr5Tt^n»T3T%5TV»tnn5)%  “  - 

17600  ♦  5X**CP!5|*,6XV*CP<6» M 

17500  1626  OVT  -  SVAIJ1 

17600  OVF  •  DVZR0!PF,0VI,PF,CPH*N*N0P*VNINI7V,V«AXt J»*t5HP,KCAST*t 


l ffUU  UtLB  ■  iTIIJf  -  uv^ 

17800  SVA(J)  -  OVF 

17900  0FLP1  «  PF  -  PPR  -  ' 

17933  EOBCJI  -  OPOV!OVF,OVI,CPH,N*9N1N( JI.VPAX!  j|) 

17966  FOB f  J)  -  1./E0BIJ1  -  - 


t 


•iii 


— ZT01F0 
24100 


24300 

24300 


24700 


24900 

74000 

29100 

79700 

24300 


TVT-’X* 

iv?-»r* 


N1  •  l 
N?  -  2 
N3  •  3 

nvt '•  6 

nv?  -  4 


N VT  -  8 

VRITE(KTTX,3l70)Nl,N2,N3,KT0rIYR,TT8,IVl-,IV2,IV3 
R  (EiO(  KlN,  ♦  )Nl'*N2,N3»KT0,lYft*lT8 
READ<K!N,3179)IVl,rV2, IV3 
Wft  1TF  I ft  TTX , 3  17  6  VN  VI ,  N  V  2  ,  N  V3 
REA0(fttN,*)NVl,'NV?,NV3 


■4 

.  4 

v  "S 

- 73400 — 

29300 

79600 

29700 

23T00 

29900 

- TT73 - FOB  3  ATT  3  All 

3176  F0R8ATIIH  , *  NV1 , NV?, NV3 ’ ,319) 

ENOIF 

JSW  -  0 

C 

C  N1  TO  N3  ARE  EFFECTIVELY  IGNORED,  UNLESS  1SS3M8)— 1.  SEE  STATEMENT  A440. 

♦ 

2  6000 

C 

26100 

370 

IEITREC—N 1)321 V4 90 ,321 

76700 

321 

IF IIREC-N2  >327*4  70,37  2 

.  •-  i 

26300 

322 

IF ( IREC-N3 ) 120, 124, 170 

76400 

724 

TONTTNUE 

.■ 

26900 

C 

26600 

C  STT 

VALUES  FRUW  HAP  FURPAI  VARIABLES 

.  ■> 

26700 

C 

26800 

3243 

VR1  -  VR(NVl) 

r 

26900 

VR?  •  VRINV2) 

77000 

V»3  ■  VRINV31 

t 

27100 

C 

J 

Z7ZUU  C  1^  mw  I  Tc  Flap  VAKIHWLt>  Tu  UN  I  1  KLl^l  I  nu  1  IN  "Ar 

27100  C  OMFCK  PURPOSES  0*L*l. 

77400 

C 

4 

2  7300 

329 

IFdSSWf  101  >376  *377, 3  ?7 

77600 

376 

WRTTEIftLIST  ,7T90  )  ICON,  IREC,ISMB,ICAST  ,*7,  B I  ,TO»Vftl  ,'VR  7,  VR3  , 

;  ; 

27700 

X 

OH, BE 

- 

77900 

C 

C  IF 

NAB  FORMAT  NOT  RFOUESTEO,  RETURN  TO  STATEMENT  *170  TO  READ  NEXT  DATA 

■  J 

78000 

C  RFCORO.  1 

28100 

C 

i* 

78200 

C  8  4P 

E0R8AT  WRITTFN  TO  UNIT  KTO 

h 

28300 

C 

, 

- 377 

■  28900 

330 

LFTLE  •  0 

jjj  28600 

I PF  -  PF 

|  28700 

XLG  -  XLONG 

S  28800 

339 

WRITE  I  WTO,  3300  ML84L  1 8  )  ,8*1 , 7  )  ,  TSHP  ,  ICAST  ,LF  ILF,  IBF,' 

|  78900 

X 

XLAT,XLG,IYR*J0AY,IT8,IV1,VR1,TV7,VR7,IV3,VR3  ■ 

29100 
29700 
29300 
294U0 
29900 
7  9600 
29700 
79800 
29900 
30000 


irllr  i 

1190  FOBNATdH  ,! 3,X,2!2,  I4,X,?F9.0,?F7.3,?F8.3,F6.3,F7.7) 

1300  F0R8A  M  2*4,  It  ^T4,X,1 l  ,  1 9,  F7. 2»FTI.  7,  X,  17,0  4  ,  T7,7,3  I  AT,F9. 4  )  1 

C 

C  177*181—1  ALLOWS  SPFCTAL  FUNCTTONS  TO  8F  CONPUTEO — 3U8T»ACTINC  VALUES 
t  AT  ONF  IFVFL  FR08  ANOTHE  ft  BEFORE  OUTPUTINC  TN  "Aft  E0R«AT. 

r  490  IFIISSWI8))499  ,.374*174 
433  V»1  -  VftfWVI). 

VR?  •  VDINV2) 

VR3  -  VRINV3) 


r»yi 


70100 

30200 


90 


- CO  TO  120  . 

470  TF! ISSWI8) >4?5V324i324 

TO  TOO - 475 - VRT  ="7RTimT  ~  V*1 - 

30400  VR2  -  VR ( NV? K  -  VR2 

70700  VRT  -  VHIW3T  -VRT 

30600  GO  TO  325 

70700  C 

30800  C  BRANCHES  1  AND  ?  CONTINUF  FROM  183  OR  180 
30R00~~  C  . . 

31000  C  IF  1SSIM7)-0  CONTfNUE  THROUGH  BRAHCH  3  AUTOMAT  I CAttT. 

'71100  C  ”  . .  '  '  . 

31200  400  IFIISSMI7) 1550*4101410 

7T7U0  410  ITW  *  TW  ♦  1  ~~ 

31400  IF<ISW-3»100*I0O,420 

”71700 - C - 

31600  C  BRANCH  3  CONTINUES1  HERE  FROM  STATEMENT  RRECFEDING  *161 
71700  C  . .  ”  . 

31800  C  IF  MAP  OUTPUT  REOUESTEO  SET  LFILE  TO  1  TO  INOfCATE  EOF  IN  MAP  FORMAT. 
”71700  "  C . .  ~  . .  '  "  "  . 


32000  420  IF(ISSW<14) )422V560«560 

jtxxto - 72? — rrm~8~i - 

32200  GO  TO  335 

32300  550  CONTINUE 

32400  1200  CONTINUE 

T7470  ”  I F  (  NS H .NF.  5  .  A Nf).  TSV.  EG  .  1  VGO  TO  I6I~ 

32475  IFCNSW.NE • 5. AND. ISN.EQ. 2 1 GO  TO  1610 

32481  Tfinsm.ne.S.  AMO.  ISN.EO.DGO  TO  420 

32500  MftO  RETURN 

”77600 -  FNO 


TOO 

800 

900 

TOO0 

1100 

"T70TT 

1300 

T600 

1500 

1550 

1600 


1800 

1000 

2100 

7200 

2300 

~750TT 

2500 

2600 

2700 

2500 

2900 

-3000 

3100 

3200 

3300 

3500 

3500 

1600" 

3700 

3500 

3900 

6000 

6100 

6200 

6300 

6600 

6500 

6600 

6700 


C  DATA  SOUR  POTEN  **♦♦*  OUT*  ********** 

C  ************************************** 

- SUBROUTINE  OAT AT RUN, NS WI - - 

C  ************************************** 

c 

C  TO  SELECT  AND  ACCESS  CT078  FORBAT  OATA  FROM  FAX  01  SC  FOR  BAT 
C  ACYTFSSES  VARIOUS  WTTLARD  SUBROOTTWFT  FOUHO  TTT  CT0ITA7tT5 
C 


C  JAN  6  1976  N  FOFDNOFV 

C  BOOTFTEO  FOR  CT078  FORMAT  INPUT  TTOEt  50. 

C 

INCLUDE  *CO*ROTFN.FUT* 

C 


N  BRAY 


VltlPl  *•  ill* 


IllliUiiltlik 


kif  tia.ta; 


TNCLUDE  MOXREC.'DIM’ 


C  THATICTER 

C 


PR OCR  AN 


IF (NSW. FQ. 5  1  GO  TO  BO  '  ~ 

IFIN5W.E0.2)  GO  TO  30 

-  TFTWSWm  ?0>3 - 

NSW  LESS  THAN  ZFROT  INTTI ALIfE  5FUFCTT0N  PTRA"FTERS 


CONTINUE 


JOO  ■ 
OAYI' 
DAY2 
XFNN 
XFNX 
XNBN 
XNNX 
—  XtTO 
XL  CO 
JSTN 
RETURN 


OV 

365. 

-1BO.O 

180.0 

-90.0 

90.0 

50^00 

70.00 

1 


NSW-O:  LIST  OR  CH/FNGF’  SELECTION  PARAMETERS 


6900 

5000 

5100 

5200 

5300 

- 5600- 

5500 
5600 
5  700 
5500 
5900 

- 6000 " 

6100 

6200 

6300 

6600 


20  CONTTNUF 

IT?  WRTTEIKLI5T.173JDAYI*DAYrrJU0 

173  FORMAT ( IH  .5H0AY i  : F8 . 3 *  X,  5HDAY2*  .  F 8. 3*9U6H  JOOi 

RFBDIKIN,*  10AVt,0RY?*  JOO 
176  WRTTFIKLIST»175) XEBN  »XEBX*  XNBN*XN*X 

175 - PORBATlttr-. TWP*N  LTB,6FT.TT - 

RFAOCKfN»*)X£BN*XEBX»  XNBN,  XNBX 

WPTTE(KLIST»17TtXLTO,XLC0 - 

17  7  FORBATUH  *8H0RrGIN:  «2(X*E8.3)) 

RFADIK  IN»  *  IXLTOrXLGO 
RETURN 


NSW  •  ?:  REAO 
STATIONS 

30  CONTTNUF 


FROB  FILE  STATIONS. PTN  INFORMATION 


IOFNT  rFY 


6450 

6600 

irscrcr 

6607 

6614 

6650 

6667 

6674 


& 


4 


n 


y  * tit  j 


7150 

7200' 

7300 

tits 

7337 


r^vv 

7500 

7600 

7700 

7600 

7900 


11300 

¥600 

9200 

¥300 

9316 


■mj 

9366 

¥400 

9500 

¥600 

9700 


9900 
TOO  00 
10100 
TO  700 
10300 


10400 
105 00 
10600 
10700 
10600 


L’J'fUU 
11000 
moo 
11200 
11700 
1 1400 


t 

g 


11600 

~T1700 

11750 

11700 


If  TK8R  «EQ. 1 3) THEN 
WRITEfKTTX,3lO) 


MRITE(KTTX,320> 

ftf  A0(KI^t330)f5HP,rCftUlS,T¥»arj 
300  FORNATIA) 

710  ffJS^TTaH  ,*€>4TF¥  5UfiOIRFCTTJirrTE¥TIffNf  **I 

320  FQRHATilH  » 'ENTER  SHIP  COOE*CROTSE  *,P¥OJ  «*) 


- 466F  ‘ 

- 330 - FTTRFITTT7,7TT1 - 

6693 

ENDIF 

6700 

C 

6800 

6900 

C  WILLARD  HEADER  RELATED  SUBROUTINES 

c  ■  ”  - 

- . .  -  -  - 

- -  - 

7000 

CALL  PVER(PROVER) 

MlWHilJMliliiA  Miliifl  liJiP  11 


CALL  STATIONIOVO*KTP) 
CALL  INDEX (11) 

LRFC  -  IDXP.FCf-9) 

LLREC  -  LRFC 
KKST  -  0 


RETURN 


C  NSW  *  IX  RE  AO  STATION  HEADER*  CHECK  AGAINST  DATA  SELECTION  CRITERIA* 
C  RNTV  RFAO  TF6PFPATORF  AND  S AL THTTY TNTOOITI  ARRAY. 

C 


iii.'iai.'iii: 


TFIKUN.GT. LLREC)  GO  TO  620 
CALL  RFCTDXIKON) 
XLAT-SLATI) 

XL0NG-5LNGI) 

IPR  -  PNIN 


*  m  —  “  t  U  '  1 

LPR  -  X  N ♦ P  R  S I NT  VP W  TN 
LB6H1V-IFHE01 31 
ENC0DF(4»53»L¥8LI2)) IFHEDi 4) 
FNCOUF  i  4  ,5  4  ,L¥6LTTI  TTFHE0T5T 
FORMAT! I  3, I 


C  CONPUTF  JULTAN  YEAR  OAY  - ~ 

C  CHETK  AGAINST  SELECTION  PARAMETERS 

C  '  —  "  - - - 

I OAY-KDAYI  IOA/IHO,  I'YR  )-KDAYI  31*12,  IYR-1  )> 


TFfOAY-OAYl)620i602,602 
602  IF  I0AY-0AY7  J6O4*f6O4*r620 
604  CONTINUE 


C  CHECK  LAT  AND  LONG  AGIANST  SELECTION  PARANETFRS. 


L 

IF  fXL0NG-XFNN)620*606,606 

605  IF  IXLOWG-XlwXf  606*608  «  620 - “ - 

606  TF i XL AT -XNNN 1620*610,610 

610  rFtXLAT-XKnrXT516T61¥i670  - 

616  L  TYPE  -  l 


iv,nn  -  I  v*  j  i 

DAY  -  DAY  ♦  700 

KCAST  •  I5TA7  - 

JRRAX  •  NTOT 


I 


4 


rt^oo 

12000 

~~T7TTH3 

12200 

17100 

12400 

17500 

12600 

"17700- 

12000 

17900 

11000 

11100 

11150 

17200 

11100 

11400 

13500 

17500 

11600 

11616 

11617 

11618 
11620 
11627 
11624 
11676 
11620 
11612 
11640 
11648 
11664 

~nsinr 

11690 

11700 

13000 

moo 

14000 

17T00 

14200 

14100 

14400 
14500 
1  4600 

rmo' 

14000 
l  4*JOO 
16000 
16100 
16200 
riimr 

15400 

16401 

15407 

15410 

15414 

twt 

16420 

15415 
16418 
15442 


93 

C  IF  TSSWI111— 1  WRITF  OUT  HPAOER  INFORMATION  ON  UNtt  KLTST 
C 

- jfClMVK  1  TTT6T6  0  ?  6'7TJV6  7TJ - 

6160  WRITEIKL 1ST , 0000 ) (LBBLIK 1 ,K- l *1 I « XL AT VXLONG, XL TO ,XLCO 
WRITE  (KLIST,80O«nLTYPF,HMDIUT5,HP*T5T«S,  rCON,0AY,IPR 
C 

C  IF  Y55W (12  3 «-l ,  W*T‘TP  OUT  HEADINGS'  FOR  OUTPUT  WHICH  IS  WRITTEN  IN  cnw»s. 
C 

- YTTTSWI 1 2  1 7F0Y- 1 1  "HP  nTTKt  1ST*  4010 ) - 

0010  FORMATI  »0!RE  C  PE  TO  SO  DVO  0VI4  S"  TH*» 

V  7 1  Z  2  N  NOP  •  > 

0000  E  OR  RAT | , 1H  *1 A4  »  4E  8 . 1  ) 

8005  FOPRATIIH  ,  '  TYPF  ROHR  SHIP  TSTN  CAST  OAT  »PR»,/, 

♦  215, 2T*A2,2X»2I6,Fft.l, 2151 

— 60m~ — F  0  »  W  A  T  U~5  IT  4',  T7  ,  I  4  i  X  ,1  5  ,  T~5  ,V7.7  VTg ;  2  V-'X  ,12  il  TVfl.5 1 - 

C 

C  HTLLARO  SUBROUTINE  TQ  FILL  DATA  ARRAY  WITH  TFHP  AND  SAL  TNI TY 
C  DATA  FOR  ALL  OBSERVATIONS. 

C 

WCT-1. 

- rrrnw(  rrmrr=T  ttwf n - 

R-R*l 

JICR-ICRUlS 
JIST-ISTAS 
CALL  L?IJ7CR» 

CALL  LZ( JtSTl 

“ - - - FNCTTOF  I  1  2V 6 rrCNTWT  T T  SFF  ,  TT  CR  7  TTST - - - 

6?  E0RHAT<A2,A1, Al, ‘.RFC* > 

WRfTFn2.0O2O)H,CNAHE*WGT 
8020  F0RHAT1  14,A12*;F5.?» 

OPFN(UNlT-KOUT,NAHF-GNAHC»TYPF-*NFW',FORH-'UNFORHATTEn» 
WOITEIKOUTIKWOC, 

- pmrrr - 

CALL  0  A  T  1 0  X  ( tCUN  1 
CALL  GFT0AT(FTR,OATAX,1100,21 
6?0  RETURN 
C 

C  NSW-5:  CHECK  ONLY  LAT  ANO  LONG  OF  HFADFR  ALREADY  RF AD  ACAJNS 

X - SFCTCT  JON  "PAR  ARFTFRS .  ~  - '  '  ~ 

C 

80  TF 1VL0NG-XFhN»45,87,87 

67  I F  t  YL  ONC- XF  NX  189.89.85 
89  IF  f XLAT-XNHN) 85 V01»81 

81  rFCXLAT-XN**X)8?, 82,85 

ST  f  OnT  i'muf  ~ . -  '  "  " 

RF  TURN 
C 

C  NSW-4  T*PL  IF  S  SF  LECTION  CRITERIA  ABOVE  NOT  RET. 

C 

85  NS  W»4 

of  ti;r  n  ■  ■  ■  - - 

FNO 

C  m****«MM*m«  slat  FUNCTION 

REAL  FUNCTION  SLAT 


INCLUDE  •IDXREC.OIH* 

T  tUNCTpON  RE TTTFNT  UFFTR  8 L  ' TTETTRET  VILUF "SIXNFO  =  FUR  SOUTH  F  WFTY 
XLAT-RTSO 
TLAT--.ILTSN 

XL  ATH-XL AT-/6000. 

SLAT«XLAT»S  TXNTTL  AT",XL  at  1 


AD-A103  892  WOODS  HOLE  OCEANOGRAPHIC  INSTITUTION  MA  F/G  8/10 

VAX-11  PROGRAMS  FOR  COMPUTING  AVAILABLE  POTENTIAL  ENERGY  FROM  C— ETC(U) 
AUG  81  N  A  BRAY  N0001L-76-C-0197 

UNCLASSIFIED  WHOI-81-70  NL 


*1 


94 

15449  9 € TURN 

15456  ENTRY  SLNG 

15465  XLAt-TLNSO 

15470  XHT*«ILNSM 

15473  XL  AT  K-  XL  A T  M /GOOO . 


15477  $LNG*XLAT>SIGNf‘XLAT»SXLATI 

- 15454'  - RTTUE5  .  “ . . 

15491  END 

- T55tnj - (;"»*»•**»•»»»»»»>*  SUBKTTUT  INF  LEfTAl 

15503  SUBROUTINE  LMf  A  ) 

- 15504  C  **** ♦ *  *  *  ***♦♦♦ ♦*♦*♦*>*♦**♦* 44444 4444444 * *# 44 A* ******** *♦** 4 *♦ 

15506  TNTEGER  TA(l),IWn) 

15512  lrrTlTlI.GFVTOOT  OU  TTTT55  - 

15515  1FflAm.GE.10t  GO  TO  10 

- I55T1J - TTTTTTTT^TTFTTn  GrTTTTT - 

15521  RETURN 

15524  10U  CONTINUE  —  ~  “ 

15527  FNCOOEf  3*2*  rtflin  IA11I 

~~  15550  - rmi-WlT -  -  - - 

15533  2  FOR  NAT ( 1 1 3  I 

- 15,3fe - RETURN - 

15539  10  CONTINUE 

15542  ENCOOFn,l.t«(tn  lAfir  — 

15545  TA(lI«IW(lt 

'  T5548  y  PORNATf 1H0.T21 

15551  RETURN 

- 1^554 - rTUNTTNUE - 

15557  ENC0PE(3«4, IN(lt)  IAflt 

T5560  4  FORI  ATT  2  MOO, W- 

15563  IA(ll«Iwm 

15566  RET05N  ~ 

15564  END 


.  — 1 


- 1 


J 


95 


12000 

12100 

17600 

12700 

xyroo 

12900 


c 

c 

*r 

c 

c 


POTFXfSUft.FOR  FILE:  SUBROurrNFS "fOR  WTEN,PEPl.T  POTENTIAL  fNFRGY 
PPOORAHS.  VAX  VFRStON.  N.BRAY . 

mw  »»»»■»  ?»»»»» 

SUBROUTINE  S«I*»Vf  A*N,P,0,NR*!FML) 

+  #  *♦***♦♦♦***  ♦  *******♦***♦♦ ♦♦♦♦**444*****4  ****•♦**♦♦♦♦*  ♦♦♦♦♦♦ 


T30OO 

c 

TO  TKVERT  SYW0FT01C  4ITRTX  F0R~  T  R I  ANGULAR  3FCTT0N  IRR'INO'FO 

13100 

c 

IN  A  LTNFAR  ARRAY  AtJ). 

13200 

t 

FRO*  SYHTNV?,, ,CAC0  *Y50  BY  RUTI5H10SER  VTA  j„‘  NTtTTTST 

13300 

c 

IT40  0 

c 

APTTTL  27  1975  N.  F QFOVOFF 

13500 

c 

mu  O 

01 4FNS  I ON  Ain  *iPTD  *  0!  1 V*MR  ( 1) 

13700 

c 

13000 — 

- TRAIL"  ■  "0 — 

13900 

00  10  I • 1 »  N 

- I4000T 

lO  OR  III  -  0 

14100 

c 

SEARCH  FOR  PIVOT 

14700 

m  TOO  T-l ,N 

14300 

8IGAJ  -  0.0 

■■UIUJK 

73  s  -"N 

14500 

00  20  J-1,N 

14600 

JJ  -  JJ+N-J*?  - 

14700 

B  -  APS ( A  f J J 1  ) 

14000 

TFT  WR  f  J  )  )  7  0  ,T7 *70  - 

14900 

12  PFf8— BIGAJ)20,70V14 

14"  ft  I G  A  J  -  "0 

15100 

K  «  J 

- 157110 

KK  »  JJ 

* 

15300 

70  CONTINUE 

15400 

IFf RTGAJI16, 15*16 

15500 

15  TPAIL  •  1 

1  XjVff 

15700 

c 

PREPARATION  OF  FLIHIYfAT  ION 

T5B00 

16  NRfK)  -  l  - 

15900 

QtK)  -  I./AfKK) 

16000 

*MK)  -  1.0 

16100 

A  f  KK  )  -  0.0 

TVVM~ 

TC^T  »  K-T  ~  "  “ 

16300 

TF(K«IU5,  19,160 

16400 

160  JK  -  K  -  N  "  " 

16500 

00  30  J»  1 , K N 1 

16600 

JK  *  JK4N-J41  - 

‘  * 

16700 

P«  J)  «  Af  JK  ) 

BIT  1  H1  M 

TFT^RT  JTlT37T77Hr 

16900 

17  01  J)  -  -A (  JK)RQf«K) 

17000 

00  TO  30 

17100 

10  OfJ)  -  A  (  JK ) *Qf  K  ) 

17700 

311  A!  JK)  -  0.0 

17300 

19  KP1  *  K*l 

17400 

1C  J  ^  ICJC 

17500 

IFf  K PI— N I  71,71. 41 

17600 

71  OO  40  J»KPjfV  '  ' 

. . M 

17700 

KJ  -  KJ  ♦  1 

17000 

TFf*RTJT)34, 37/34 

17900 

3?  PfJ)  -  A ( K J ) 

“  nrooo 

GO  TO  75  ~  ' 

10100 

34  PfJ)  -  -A  f  K  J ) 

10700 

34  Of  J)  -  -AfKJ)*OTfK)  - 

* 

18300 

70400 


40  AfKJ)  - 
FLTWTWITT0N 


0.0 

PROPER 


;s|J 


4 


'! 

$ 


11500 

18600 


41  JK  -  0 

00  80  J-l.N 


10800 

"T8900 

19000 

19100 

19200 


bHB.lt! 


JK  -  JK  ♦  1 
50  A I  JK  1  -  A! JK) 
100  CONTINUE 
1 50  FFfWN 
END 


♦  P  <J 1 *0 1 K 1 


19400  C  POTENT I AL  ENERGY  PROCNAB 
19500  C  .  ~ 

19600  C ******* ******* ***************************************** 

19700  SUBROUTINE  PARA* 

19800  C *************************************************  ****** 


20000 
moo  c 
20200 
20300  C 
20400  C 


20600 

20700 

20800 

20900 

21000 


INCLUDE  ' CONPOTEN. FOR  * 


INTEGER  PFOELTA ,PDELT  A 


icim  i  *  t ; 

FORBATI ’OINPUT  NFM  PARABETERS7* » 
T F f  NOY ESI  K  IN ,KT TX I  .NE  . 1VRFTUIN 
HR  ITE(KTTX,20» 

FOPHATf’OENTFR  THE  NUHBER  OE  SFC’ 
THE  SAHE  PARABPTERS1* 1 


ofletfls  with 


21200 

21300 

21400 

21500 

21600 


C  l  fVV 
21800 
rrooo 

22000 

"27100 

22200 


22300 

22400 

77500" 

22600 

22700 

22000 


C  C'fUU 

23000 

73100 

23200 
"  23700 
23400 


C  31UU 

23600 

"27700 

23800 

27900 

24000 


C7  1WU 

24200 

74700 

24400 

74700 


FF I NSECTION. GT.19 1  THEN 
MR  ITEIKTTX ,221- 

FORBATI ’OBAXIHUB  ALLOWED  IS  19*7 

GO  TO  15  - -  - 

END  IF 


Him 

FORMAT COENTER  THE  PRESSURE  FOR  THE  FIRST  LEVEL**  > 
REAOIKIN.MINfTTALP  - 

NLEVP-l 

NPREV--1  “ 

NSE-NSECTION+l 


DO  1000  I »l*NSE 

12- I*NSE 

13- I^2*NSE  ~ 

HRITEIKTTX,lOOir 

FORHATl^OFOR  STCTTON^TAT*  ENTE3F  THE  INTERVAL  IN  1 
*  LEVELEO  SURFACES?  *  I 


Kt«uuun»*  I  r  p  urT.  1  A 

WRITE !KTTX»120) 

FORMAT! ’CENTER  THE  rNTFRYA17T7F  T9  W  FOR  THFREI 
READCKIN*4 ) P DELTA 

HR ITEIKTTX, 1401  -  - 

FORBAT I  *  OENTER  THE  FIRST  PRESSURE  IN  THE  NEXT  SEC’ 


01  OETHFEIT 


THE  NEXT  SECTION: 


NLEVEL* I IP2-INIT! ALP  1  /PFDELT  A 

WRITE  fxrnc,i60T  - - - - 

160  FORBATI ’OENTER  THE  NVH8ER  OF  TERNS  IN  THE  REGRESSION? • , 7, 

T  MN-2  I*PLTFS  A  LTNFXR  FTTTBAXTBUB  9  TS  BT’l - 

READ  f  K I N*  *  IN 


irin.vii  «o  rfi*n 

C******  COBPUTE  NPRIM  ♦♦♦♦•* 

NPRm-NLFVEE>NCETR"  -  - 

C ******  COBPUTF  NPRCI21 

NPRfr7V«TE0ELT*  “  -  " 


l 


24600 

24700 


C.  lOWU 

24900 

'73000 

25100 

757UO 

25300 


25600 

25700 

25800 

25900 

26000 


t  V)  lUU 
26200 
76300 
26400 
76450 
26500 


Z6600 
26700 
2  6  BOO 
26900 
7TOOO 
27100 
— 2T200 
27300 
7T400 

27500 
776 OH 

27700 

moo 

2  7900 
20000 
28100 
70  200 
28300 


c 

28500 
20600 
28700 
2  8800 
28900 


29100 

79200 

29300 

79400 

29500 


C  lOUU 

29700 

79000 

29900 

30000 

30100 

30700 

30300 

30400 

30500 

30600 


C****»4  COMPUTE  NSCIfl  *♦♦♦♦♦ 
IFf I.FQ.llTHFN 


"is i.  \  l  i  *  i  n  t  1 1  a 
IPREV-INITI ALP 

TNDTF  '  - 

NSC  Cl  *1 ) ■ IPREV^NLE VEL  4PFDELT  A 

cr*«ff  compute  NPRrrrr ******* —■ - 

NPR(I3)-NLFVP-I TPREV/PFOELTA) 


! PREV*NSC (1*11 
NlEVP-NPRITl. 
INITIALP-IPREV 
(-*♦***♦  CONFUTE  NSC If TV 
NSCII21-N 


NSC< I31-PDELTA7DELP 
1000  CONTINUE 

ITOTAL-IPRFV 

jmax-nlfv» 

WRITF<KTTX,200)NSFCTI0N,NLEVPVIT0TAL 


X  Lc  VEL  TS  A'»'*yl6**0B.  •  ) 

WP!TE<KTTX,220) 

220  FORMAT* *OENTER  MAXIMUM  DEPTH  OF  THE  DATA:*) 
RFAniXIN,4)ITNAX 
I *NSECT I 0N>1 

- 17*791 - 

n«3*T 

NPPf  D-NLEVP+5 

NPP  f 1 2 ) » ( I TM*X«500) / I NL  EVP-NPREV ) 

NPRfI3)«NPRFf  -  “ 

NSC(  U-IPREV 

- RTCTT7T_Tji - 

NSC<I3)-P0ELTA7D£LP 
NSFCTTON-NSECTTON*!  " "  ' 

RETURN 

FNO  . . .  . 

EOEPF  SUBR  *****  PT5B1  *********************************** 


c  •  ■  . . 

C  CONFUTES  COEFFICIENTS  FOR  A  LINEAR  TRANSFORMATION  X*AX*8 
C  FOR  POLYNOMIAL  OF  ORDER  N-i.  INPUT  ARRAY  C*  OUTPUT  0.' 

C 


dimension  cm  ,.om 

DO  25  I-l.N  ' 

»  •  1.0 


•  1, 

WNf  »  N  —  I 

TFINNJ ) 12*17*5  - 

5  DO  10  J-1,N*I 
TP J  •  I  ♦  J 

R  •  »FLOATIlPJ-«il/FLOATI  JIJ4B4R 
TU  3  -  5  ♦  rrc  mm - 

1?  TMi  •  I  -  J 

TFCTNlI15,15t20  - 

15  R  -  1.0 

00  TO  26  -  - 


! 


30700 

30*00 


iTi  IT.  Til 


31000 
“Til  Off 
32300 
17400 
32*00 


32700 

37*00 

32900 

31000 

33100 


ihiil'l 


33300 

33400 

33*00 

36900 

37000 


37200 

37300 

37400 

37*00 

37600 


-w 


37800 

"37900 

37950 

3717* 

38000 


38200 

3*300 

38400 

3**00 

38600 


38700 
38800 
3*900 
39000 
111  Off 
39200 


I  T  JUU 

39400 

39*00 

39600 

19700 

39800 


tVLI.M 


40000 

40100 

40200 

40300 

40400 


20  R  •  A*1 1 1 
2*  0(11  -  S*R 


C  *(N>  FCN  •  PTSB1  ♦♦♦♦♦♦♦ 

FUNCTION  RIN)  - 


y, 

INTEGER*?  IA*N 
FA  -  "77777 
?F(N)1,2,2 

1  P  -  ELOATt  (  TTANOlN,  1311  ♦  3276*. 
RETURN 


lllIU 


RETURN 

CNO 

C 

C  *9  ******  ***** ** **********, 
SUBROUTINE  EDIT* JERRI 


C  EDIT  TE«B  ANO  SALINITY  m  REGRESSIONTaBLE; 
C 

C  JAN  28  197*  N  FOEONOPT 
C 


EQUIVALENCE  (PDIPF.All 

IERR  •  0 
OVPHAX  -  -.12* 

00  10  H«R1,R2 


P(R)  -  SIR! 
10  THIHl  •  Till 

l*  DVR  -  0.0 

PR  «  0.0 

THR  •  0.0 


XNOP  -  NOP 
00  20  R-R1,R2 

0V«  -  DVH  ♦  DVf'H)  — 

P"  -  PR  ♦  P I  HI 
THM  -  THH  4  717193 
PT(R1  -  PIN) 


■  I  n 

20  CONTINUE 

DVR  -  OVH/XNDP 
PR  ■  PR/ XNOP 
THH  -  THH7XN0R 
CALL  LSET 


no  60  R"R1,R2 

TTl  AB5 1 PTT  H1-PW3-AT*Z  1 )  40,  30*10 - - 

CHRP  •  POLY 1 8V( H) *DVH* CP*N* 0*0*6000. 0 )  ♦  PR 

KERR  -  I  -  - 

IE (ISSN 13)131, 32*3? 


i 

Ml 

X 


7(1  VIII 


404*1 

404*2 

404*3 

“40454 


III  i  r  i  a  ■  _  ■  a 


51  *  0ATAX(H^r,2l 

52  •  0ATA7fH,71 

53  •  DATAX(H4t*-2) 
TH1  •  THETATOTTH-' 


i 


VJW**  - 


99 


40415 

40456 

TH?  » 
TH3  - 

theta  xDVfHi ,DAtAxfH, i) *s?ypF ) 
THETAX0YXH*U,0ATAXXH^IV11,S3,PFI 

* 

40458 

091"  • 

■  DVAXPEiTHl,Sll - 

40470 

0V2  • 

OVAXPF  *TH2,S21 

•  4 

"40476 

0V3  • 

DV  A ( PF  ^TH3 , S3 1 

- 

40482 

0VP1 

-  I0VI-0Y21/0ELP 

404^0 

0VP2 

-  X  DV2-DV3 1 /DEL  P 

s.( 

40500 

WRITE  XKLIST  ,31001 DVX  H  )  ,  PX  HI  ,CORR,  OELTAVOVPl  ,09P2 

40600 

37 

PX»1 

*  C  0**K 

40700 

40 

IEX  ABSXTTX  H 1 -THH 1-A3*  Z  2 1 55 ,50,’50 

40800 

50 

CORR 

-  P  OLY f  DV X  H I  ,0VH ,  C", N,0.0V6OOO.  01  ♦  THH 

40900 

KERR 

-  1 

11000 

IF  X  ISSWX3  I  1 51  ,«52, 5?  - 

'  " 

X 

41050 

51 

OFLTA 

-  CORR^THXHl 

' 

"WT  Oil 

"SI"  * 

41052 

S?  - 

DAT  AX  XH,2  1 

4T051 

41054 

41015 

41056 

"4T05B 

41066 

41X174 

41082 

4T09O 

41100 


5T  •  OiTAYf *♦!,?)  “ 

TH1  -  THET4IDVX  0-1 1 , DATAX I H-l *1 >*S1 ,PP I 

TH?  -  THETAT  07T  WT *01TAlfnTi  1  T*57 *FFT - - 

TH3  -  THETAX0VXH-H.l,DATAXXH>liII,S3,PFI 

im  -  D  V  ATP  FiliTHT  VSTl - 

OV?  -  OVAXRF,TH2,S21 

DV3  «  0VAXPF,TH3,ST)  - 

DVP1  -  X  0V1-DV21 /DEL  P 

DVP?  -  X0V7-0VT1/TJ7L7 - - 


-■ rtroxr 

41300 

4 1117 

41343 

41750 

41400 

41500 

41600 

4TT0XT 

41800 

41000 

4  2. 100 

4?  TOP 

42200 

47750 

42300 

47400 

42500 

47600 

42700 

47000 

42900 

41000 

43100 


IT- 

55 


HRITEIKLIST,31001DVXH1,THXH1,C0RR,DELTA,DVP1,DVP2 

— HTtrtl  ■■  CORR - 

IF  X  KERR. FO. 0. AND. TERR. EQ. 01  THEN 

JFRR--?  - -  - - - 

FNDIE 

IFRR  -  IFRR  ♦  1  - 

60  CONTINUE 

IF  l  KERR  170 ,70,15 - 

70  00  75  H«H1,N2 

SfHl  -  PXH1  - 

TC)  -  THXH) 

75  PX"I  -  OKI)  - 

JERR  •  JERR  ♦  1 
00  77 TURN 


!l  , 


3100 


F0RHATXF7. 1,89.3,*  REPLACED  BY?  SF*.!**  CHANCE  ISt*,F9.3, 

*  *  17.  vol.  cnnnTNTST  a  b dtp  -  ^vfv; it*  below  s-^jpovsi 

END 


♦  ♦  *♦  ***♦♦  *******  *•  *44444 

- ^mmjTTNE  15FT - 

************** ************ ****** 


LEAI5T  SQUARES  REGRESSION  SUBROUTINE  FOR  POTEN. 
PAR  6  1976  N  FOFDNOFF 


INCLUDE  'CO^POTEN.FOR* 

1  NA  -  N* f  N* 1  I /? 

L  -  1 

DO  10  I-l, NA 
10  COXTT  -  0.0 
00  12  I  *1 »  N 
CP(I)  •  0.0 
1?  CTXII  -  0.0 
15  00  20  T-l,N 


100 


**■500 

BP  1 1 )  -  0.0 

***00 

BTIIJ  -  0.0 

**400 

70 

Tontinuf 

4**00 

00  8  1-41.4? 

4*700 

x  -  ovm  -  ov4 

**800 

4*900 

00  100  J-l.N 

TF f  J-l 190.90.94 

*4000 

90 

BIJI  -  1.0 

4^  YOTT 

XU  TU  TOO 

*4200 

94 

BIJ)  -  X*MJ-«1> 

44100 

100 

CONTJNUF 

44*00 

44400 

JK  -  0 

X  -  PT( n  -  P4 

*4600 

XT  -  TTU1  -  TH4 

*4700 

on  8  J-l.N 

44800 

8PCJ)  -  8P(JI  ♦  8 1 J ) *X 

44900 

8 T I  j )  -  BT(J)  4.  8  f  J  V4XT 

46000 

46100 

104 

IFfL-l)l05,105*8 

00  7  K-J.N  '  - 

*6  200 

JK  -  JK  4  1 

*6  JOO 

7 

CO(  JfC  1  *  CU  (  JR!  ^  BiJIl^B^KI 

*6*00 

8 

CONTINUE 

46400 

ira-nm.mvt?* 

*6600 

46700 

171 

174 

CALL  S4I NVf C0.N.8.8A »4RfIFAIL 1 

00  700  4-1, N  - 

*6800 

SP  -  0.0 

46900 

ST-  0.0 

47000 

J4  -  4-N 

47100 

00  1 7*4  J-l.N 

*7?00 

47100 

17*0 

PF  IJ-4) 17*0, 1740, 17*2 

J4  •  J4  4  N  -*  J  4  V 

*7*00 

CO  TO  17** 

*7400 

17*7 

J4"  JW  -V  1 

*7600 

17*4 

SP  -  SP  4  C0( J*l *8P( J) 

*7700 

17*4 

IT  -  ST  4  C0CJN74FTTJ7 

*7800 

*7900 

700 

CP(4»  -  CP f 4|  4  SP 

CT (4)  «  CTI4*  4  ST 

*8000 

C  C04PUTF  RF5I0UALS 

"iif HI  i  H'M 

T7T 

RP  -  0.0 

*8?00 

RT  -  0.0 

*moo 

no  184  1-41,42  - 

*8*00 

FP  «  0.0 

*8400 

FT  -  0.0  - - 

*8600 

x  -  i)vm  -  ovw 

*8800 

NJ  -  N—  J 4 1 

*8900 

FP  -  FP *X  4  CPTJTJ!  -  -  ”• 

*9000 

180 

FT  •  FT**  4  CTWJI 

*9100 

sp  -  pm  -  fp 

*9200 

PTfl)  •  SP 

1  ii  M  L  1  H'B 

st  -  thh  f  -  n 

*9*00 

TTIH  -  ST 

49400 

TFa-KSMM64,181,T87 - 

49600 

181 

RP  «  ISP  — P4 J •  ♦?  4  RP 

49700 

RT  -  CST-TH4)**?  4  NT 

49800 

184 

CONTINUF 

*9900 

t  *  L  ♦  1 

40000 

IFIL-KSHU4,14,195 

40100 

194 

XN  -  NOP  -  M 

40700 

40100 

71  -  SORT  (RP/JCN) 

r?  •  soRTfrmnn  - 

n  "'wo 

50500 


50700 

“50000 

50500 

51000 

51100 


51300 

“51500 

51500 


IF  I TSSWI6  I  I  300»350»  350 

300  no  no  i»i*w 


BUI  ■  ABS!CMm/!7l*SQ*T<AB5fCOUm>) 
9M!)  -  miVTfr)'  >7177*30571  CO ( II  VU> 
310  CONTINUE 

HR  ITT  f  KTT5T ♦  31001 PT, N , 50T, TTflTJ  *K-l YN1 
N«ITF1KLI5T,3110MBFI  KI»K-1,N) 


3100  F0BHAT!F6.0*M,!3fBF8.3| 

7110  FORMAT  f  IT5T*TJFB  Ill 
FNO 


102 


Appendix  C. 

Program  Listings  for  PEPLT 


PEPLT/PEPLS! 
K  PR  ISW 


103 

SHORT  OOCUHENT  AT  ION 

JSW  KLIST  DESCRIPTION 


jcall  t*ble  subroutine*  ltst, 
plot ♦  Output  in  hap  eornat 
plot  IS* 

Ai»V«BLfNXlT*A?*WBLrNXM‘»A3#VRBLfNXi3MA4*t>r*ECVlT 
B1PVRBL I NY1 ) ♦BZPVR  BL ( NY?  I  ♦B3*VRBL  C  NTS  )»84PCtIREC*>?l 
-  -  CHANGE  PAPA  HATERS  FOR  PLOT 

INITIALIZE  PAR-AHETERS  TOR  PLOT 

-  CHANCE  DATA  SELECTION  VARIABLES 
CHANCE  PLOT  PATRAHETERS 

-  call  avrgs  Subroutines  horizontal 

AVERAGES.  FOR  OETAILEO  OOCUHENTA- 


950 

1000 

1100 

r?oo 


AVRGS  BRANCH. 

SET  TSSW  TSmITCHI  ARRAY 
RESTART  MAIN  PROGRAH 


TOO  R^PIT/Rf PLS:  BRANCH  3 — PARAMETERS — SHORT  DOCUMENTATION 

300  KRR3  ISW3  DESCRIPTION 

5W  l  '  O  '  ~PrRTNT'OUT  PARAMEtERS  ON  KLISff  STORE  COMMON  TO 
SOO  FILE  KPLCM.  RETURN  TO  PEPLS. 

600  1  INPUT  VARIABLE  SELECTORS  NXl  TO  NZ3 

700  2  ENTER  A1  TO  kb 

TIOO  2  2  ENTER  Bl  TO  B6 

1200  3  2  ENTER  Cl  TO  Cfe 


100 

200 


250 
300 
600 
500 
600 
700 
800 
000 
1000 
1100 
1200 
1300 
TW 
1500 
1600 


105 

PFPLf /AVRGS:  SHORT  OOCUMENTA T ION 


KBR  ISW  JSW  KLIST 


DESCRIPTION 


6 

6 


0 

1 


2 

3 


6 

5 

6 
7 


• 

1 

0 

T 


LU 


SHORT  OOCUMENT  ATI  ON 

READ  FROM  DATA  FILES  VARIABLES  IN  COLUMNS 
JSW  TO  KLIST 

ZERO  COLUMNS  JSW  TO  KLIST 
INITIALIZE  AND  INPUT  PARAMETERS 
INPUT  PARAMETERS — NO  INITIALIZATION 
OTVTDF  ZanjHWT-JTV  TW  (ZITTT  SY  CTTOJHTT  6 
AOO  COLUMN  JSW  VERTICALLY  FROM  THE  TOP 
PR  rNT  OUT  DATA  ARRAY  ON  UNIT  KLIST 
CALL  NCAR  PLOT  PACKAGE  TO  PLOT  ONE  FRAME. 
OFF  AULT  IS  COLUMN  JSW  AGAINST  PRESSURE. 
GENERAL  PLOTS? 


X*B1 *C (  I.  JSW ) ♦826 C I I  •NX2')  ♦B3*PR 
Y-ftl*pP4A2*CU*NYl)»A3*CC  l.NY2» 
MULTIPLE  PLOTS  ON  ONE  FRAME  ALLOWED 


1700 

1800 

1900 

KBR 

ISW 

8 

JSW 

KLIST 

COMPUTF  DYNAMIC  HEIGHT  ANO  POTENTIAL  ENERGY: 
ASSUMES  OVI  IN  COLUMN  1  (NV(l)-lB)  ANO  DVE 

2000 

2100 

9 

* 

* 

IN  COLUMN  ?  ( NY f  ? )  -T9TT 

INTEGRATE  COLUMNS  JSW  TO  KLIST  AS  A  FUNCTION 

2200 

2300 

10 

• 

I 

OF  PRESSURE 

SUBTRACT  RFFERNCE  LEVEL  VALUE  CIJRET.t)  FROM 

2600 

2500 

11 

1 

_ 

COLUMNS  JSW  "TO  KLIST 

INPUT  JC1.CR1  TO  JC6.CR6 

“7  GUO" 
2700 
2800 
2900 
3000 
3100 
3200 
3300 
T600 
3500 
3600 
3700 
TRUU 
3900 
6000 
5100 
6200 
6300 
"6600 
6500 
6600 
6  700 
T800 
6900 
5000 
5100 
5700 
5300 
5600 
5500 
5600 


XT 


12 

13 


TER  FORM  TRFTOLTOWTMG  COL  URN  UDDTTTW: 

C<T»  JC1»-CR1*CIT,  JCH*CR2*CI  I  VJC 2 1  ♦ 

CR 3*C 1 1 ♦ JC3 1 ♦CR6RC I  JR EE WJC6) 

RETURN  TO  PEPLS 

INPUT  COLUMN  R»S  AND  CONSTANTS  TO  PERFORM 
THE  FOLLOWING  COLUMN  MULT  IPL  f  CATITIN: 

CI1REC,  n«CUNl»CI  IRLC»T  >YHJN7»C<  IREIC»  JI  * - 

C0N3 *CIIREC»K>.  INPUT  ORDER?  I»J,K,'CDN1 
CUN2  *  CONTI  AN  INDEX  H,J,0R  KI  OE  31  ALOE  -1 
PREVENTS  THE  INCLUSION  OF  THE  ASSOCIATED 
AND  FOLLOWING  COLUNNTYT. 


KRR 


ISW 

IT 


JSW  KLTST 


OUTPUT  FIRST  THREE"  C Oil 0*NS~ IN  N»T>  FORMAT? - 

ACCESS  TO  THIS  BRANCH  QUERIES  WHAT  HORIZONTAL 

LEVEL  »  IS  DESIRED 

NOT  USED 

INPUT  X,J  " 

Cl IREC* JI-CI IPEC, J)»RX.  (SHOULD  FOLLOW 

6TT61T  IMMEDTATELY  IN  EXECUTION;! - 

ERROR  SUMMATION?  VERTICAL  INTEGRATION  WITH 
(DELTA  PI*R2  TS  THE  INCREMENT 
INPUT  DELTA  P  INTO  C(TRECf5) 

EXCHANGE  TWO  COLUMNS  HE  C 
CHANGE  A  S INGLE  ELEMENT  OF  C 

COMRTJTF  STANDARD  TTFVTATf  ON"  OF" ITCTVEN - 

X-BAR  IN  C( IREC*6>  AND  X*X-BAR  IN  CfIREC*3». 

RESULT  IS  STORED  IN  CITRECilI. - 

CALCULATE  DYNAMIC  HEIGHT  AT  A  GIVEN  LEVEL 
RELATIVE  TO  PRESSURE  CORRESPONDING  TO"  JREF 
AND  OUTPUT  IN  MAP  FORMAT  *  ALONG  WITH  VARIABLES 
FROM  COLUMNS  3  AND  6  AT  THAT  PRESSURE; - 


15 

16 


1 

D 


17 

IB 

19 

20 
T T 


22 


1  l 


COLUMNS  3 
NV< 1 1  MUST  BE 


AND 


18 


NVI 21*19. 


5700 


COOMFPIT.FOR  FILE:  OT  ME  N5TOW,  COMMON  TND  FOfflTSttSCE  POW  PPPCT 
DISPLAY  PROGRAM.  N. BRAY 

- PARAMETER  KCM«943 - 

PARAMETER  JDIH*1'00 

CHARACTERS  DOIT  " 

CHAR ACTERP1?  GNANp 
DIMENSION  C$Tf6V4>,VIMT5l 
DIMENSION  KH0GM50)  ,KBUF(46) 


404 

475 


COMMON 

COMMON  KIN 

BF GINNING  OF  STORED  COMMON 


600 

700- 

800 

iroo 

1300 


COMMON  NY1  ♦NY?,iNY3*NYl,NY2*NY3*N71,N7?,N?l 
COMMON  ISH,  JSW,“NV,HWVTN7W0 

COMMON  YM I N  ,  YM AY .'YM T N , YM* Y 
COMMON  Al,  A2,A3,'A4,A5,  A6 


1500 
T60  0 
1700 
T80TT 
1900 


COMMON  C1,C?,C3»'C4,C5,C6 
COMMON  01»D?»D3t'04*D5*06 
COMMON  X1,ZLT0*7LG0,DAV,XPL*YPL 

COMMON  WT  "  - 

COMMON  NVI 6) ,NXC6) , AV, BV,CV 


2100 
7200 
2300 
2400 
2500 
‘  7500 
2633 
767T6 
2683 
27U0 
2800 
~  2900 
3000 
3TO0~ 

3200 

TJOO 

3400 


3600 
— T6I6 
3632 
— 3B5TT 
4100 
— 4700- 
4300 

-  mm orr 

4425 
“  445  0 
4475 


COMMON  CRl*CR2*/CR3»CR4 
COMMON  JMAX,  JREF 
COMMON  NX4  «  NY4  ,iNZ4 

COMMON  IVlfIV2,m,  JBOF  ,  JHD1F*7iro~ 

COMMON  JSHPt  61 „0AY1,DAY2,PMIN,PMAX 
"COMMON  XFMN.YFWXyXNMNrXNPr 
COMMON  C(  100,61 
COMMON  ISSWI161 

COMMON  PL A  BL I 10! ,XL  ABL ( 10),YLA8t  I 110 ) 

COMMON  LTYPF,MNOR, ICON , I SMP • I C AST ,X0 AY , 1PR ,LPR 

"COMMON  XL  AT,  XLONC,  W6T,XLT0,~X1.'G'0 - 

COMMON  LBBLf  3),I.BLfl3>  ,N5Cf  601  ,NPR|60UN5ECTI0N 

COMMON  PE, TO, SO,OVO 

COMMON  PT,THF,‘SF",T)YE -  - 

COMMON  PM,  THM,SM,*OVM 


COMMON  CP(8!,71,CT<8), Z2  »Fi  ,F2  *<F3 

FNO  OF  STORED  COMMON  . . . . 

COMMON  XDATI 108V7) ,YDATt 100,7) 
COMMON  TOEtP,OR-  - - - - 


COMMON/CHARACTER/  CNAME  C  200) ,00C f 10 ) 

FOUIVALENCE  C A1 ,CST) , I VR ,PF ) 
FOUTVALTNCF  f KTOG.LTYPFirnniUF RETYPE ) 
FOUIVALENCE  ( KTTX, KPLC  M ) 


I 


C  PFPLT  PPOC  ***♦♦*♦♦**  SFPT  1<J7T 


t 


J 


TOC 
200 
— TtJtr 
400 
"“WO" 
600 
roc 
800 

- TOO" 

1000 

rioo 

1150 
1700 
1300 
"T400 
1500 
11500" 
1700 
1800 
1900 
"7000 ' 


C  PFPLT  SUBROUTINE  ♦#♦*♦♦*♦ 
SUBROUTINE  PEPC5 

T  ************************** 

C 

c 
c 
c 


SEPT  24  1977  *♦♦♦♦ 


RROOftA"  TO  PLOT  POTEN  VARIABLES. 
JUNE  27  1976  N  FOEONOFE 
V7(XTF1?TTTTN--N0V  I9-80T 

INCLUDE  •CO«PEPLT.FDR# 


40 


120 

~T2TT0~ 


WR!TE(KTTX,40) 

EOITNATIIH  ,  MYmtALlTCCATAy  VARIABLE  SELSCtlON  PARAMETERS 
f YES  OR  NO)?M 

TF  (NOYES  ( KlNtKTTX)  .FO  •  1 V60  TC  106 
WRITE(KTTX,l?0<mBR,  ISW*J$W.KttST,KTP*KUUT,KlN 

'  nFOfRNATT*  RPEPL'TTKBR  ,  LS*'.  JSVt RL~T5T«K  rPiXmrr.XTTfTT, - 

♦  6X,3I3, 15, 13*14,13) 

KUST  -  6 
KOUT  -  8 
KTp  .  n 

REA0(KIN,*)K8R',  ISW,JSW,KLIST  »KTP»  KOUT  ,K  IN 

- fRK  r-7  yy  gTar7 - 

2100  rE(KBRU20,fi0(JV130 

7700  130  GO  TO  I  700.70,3D,406,50C,606,T(50TKBR 

2300  C  #♦♦*♦♦*♦*♦♦♦*♦♦**•♦*#*♦**♦♦♦♦*♦***♦*♦•***♦♦♦*■*♦♦♦*•♦♦♦*♦•****♦♦*** 

T400  C  INTTTALT7E  ' 

2500  C 


nuo 
3400 
T500  " 
3600 
-  3700 

3800 

Tuo 

a FTN*~7u 

XPAX  -  100.0 

YNTN  -  0.0 

Yf»AX  -  5000. 9 

A!  -  1.0  ” 

B l  «  1.0 

LI  - 

I  .TT 

4000 

01  - 

1.0 

4100 

07  * 

1.0  ' 

4200 

07  - 

1.0 

43TT0 

04  - 

1.0 

4400 

05  « 

1.0 

4500 

“06  * 

Yv  0 

4600 

NX  1 

12 

4  TOO 

NX? 

0 

4800 

NX3 

0 

- 4900 

NY1 

19  ~  ‘ 

* 

5000 

NY2 

0 

TOO 

NY3 

0 

5200 

Nr  i 

25 

5300 

NZ7 

0 

-- 

5400 

N73 

0 

5500 

NV  - 

7  -----  -  ■  . 

-  .. 

5600 

8W  - 

0 

8-T00 

'  ~KTP 

■"“Tt - 

5800 

CALL 

OAT  A  <  -i  *JEOE  1 

5900 

GO  TO 

120  ----- 

6000 

C< 

►  ♦*•* 

****** 

-  5100 

700 

CALL 

table  —  •  -• 

6200 

GO  TO 

170 

6  iuu 

T 

Ttff 

•  ERR**1 

*T^  9R SNCIT  T--C5ANGF  0ATA  5ELFCT ITTN  VARIABLES'  ****** 

6400 

20 

CALL 

OATAIOflFOEl 

6500 

GO  TO 

170 

- 

6600 

C 

6700 

30 

OPENtUNI  T  »50  i.TC*WE«-*p-E  PL~S3  .DOTT*'  fTY  P  F-^OTO^  VEFTOONET? 

-  -  — 

~6BW 

6900 


7100 

7200 

7300 

7400 

7500 


7700 

7100 

7900 

0000 

8100 


8300 

8400 

8500 

8600 


IliU 


(UTr 


00  3350  N-1,200 

REA0!50»  3  3  25, 1710-3340 1  (DOC !  I  >Vf "1  #9) 


W 

3350  CONTINUE 
3325  F0RHATI9A8I 
3330  FORNATIIH  ,9*81 

3340  CLOSE  IUNIT-10I 

300  WRITE  ! KTTX, 3000) 


iltltlil 


l.kl 


KX  -  4 

REAMKtN, ♦)KtR3,tSW3 »KX,8V,8W  ~  " 

IFIKBR3I30, 350*31 

31  IF  IISW3-1 1  32,32,34 

32  WRITE!KLIST,3200)NXI,NX2,NX3,rtfYl,NY2*NY3,NZl,4l72,W73 


Illl  lJ  |||1! 


x  CL1  ] 


8700 

34 

8C00 

3400 

8900 

9000 

35 

9100 

37 

9200 

38 

9300 

syMjr  Cl 

t 

9500 

350 

9700 

9800 

9900 

10000 


10200 
T0100 
10400 
10600  ' 
10600 


10800 

TU90TT 

11000 

TTTOO 

11200 


IIJUW 

11400 

“TT50(r 

11600 


IF  !  TSW3-1 1  34,33,'30 

R F A 0 <  K I N,  *  >  NXl  *NX 2  , N  X  3  ,  NY  1 ,  N  YZ  ♦’NY  3  *  Nf  U  NZ  2  ,  NT  3 
CO  TO  300  _ _ _ _ 

WRITEIKL  IST,3400)KBR3,!CST!  JCVKBR31,.rOT,6) 


Vile, 

TFt ISW3I30, 38,35 

READ! *1 N , *  I !  CS  T f  JC ,K B R 3 )  ,  3C » 1  *6  > 
GO  TO  300 
K5P3  -  KBR3  ♦  1 
IF ( KBR3—KX ) 34*34, 350 


WRITE!  10  HIKPLCH 
CO  TO  120  - 


C  ♦♦♦ ♦♦♦* VE RAGES  >4 

400  CALL  AVRGS 


miirm’ 


11800 


k  t.'ryjyj 
12000 
“17T0TT 
12200 


C5  •♦♦♦♦♦  SET  ISSW  SWITCHES  ***♦*♦ 

5000  FORHAT  !  2  !  1H  ,X,1614,/1,»  ENTE*  K,ISSW!K>M 

we  atjt  ktn  ,  *  1 1  r  vrssn'nrr,wiT7Tn 

CO  TO  120 


nA  I N 

600  RETURN 

C  *♦♦#♦*****  EXIT  PROGRAM  ##**♦*♦♦##**  TV*  *  *  * ****** 
700  WRITE !  KTTX *7000 I 

TFTN0YF5 1 KTNV1TTXI . NE .11 CO  TO  120 - 

STOP 


iuwu  runn*  i  i  m  ,’emi  rn 

C**  PPPLS*  SHORT  DOCUMENTATION — BRANCH  0  ♦♦♦*♦**•♦♦♦♦#*♦ 
100  OPEN!  UNI  T»50,.N*HE <■'»  P  EELS'*  OPC «  ,'TTP  E  -  * BCTT*  ,  R 

00  850  N-1,200 

READf50*!25»inTO,»H7T  TDOCrnTT^TTn - ~ 

WRITE!KTTX,8301!00C! I 1,1-1, 9> 


CLOSE  I UN IT -50 1 
FORPirmm 
FORNAT! IH  ,9*11 
GO  TO  T70 
ENO 


12400 


X  TWOE SUBPPO  G  *  *********  ****************  #  ♦*  *****  ****** 
SUBROUTINE  AVRCS 


*00 

“TOO"’ 

600 


C 

C  FOR  HORIZONTAL  A’VERAGFS  C0PPUTFLT3T1ND  PLOT.’ 
C  JUMP  27  1976  N  FOFONOFF 

C  Trjr^rFRsroTj— nuv  tobo:  mvbrat - 

OfWFNS ION  0(6) 


Hdlf  Vlt.ll 


1000 

1050 - 

1100 

— reon  x 

1700 


1  svu  K, 

1*50 

1500  X 


OTNENSION  XYN(*1 
CHAR  ACTER  * 12  U0TNIWF 
TNCLUOE  *CONPEPfcT.FOR* 

EQUIVALENCE  (DtVD) 


CHARACTER*^  IDSTN 


1600  10  G0T0 < 100, 200, TOO. *00, 500,600, TOO, 800, 900.1000* 1100*1200,1 300* 

1700  *  1*00*15  SO  » 1600TTT  00'»T500V1  90077000  *  21  OB  *2  200715  OOTYSIT 

1800  C 


IIIII11H11  U 


1 1,1*: 


:ITI1ITTTTTTI1T1 


2000 

2700 

2300 

TVOO 

2500 


100  CONTINUE 

00  101  K-l.NO  - - - 

READ! 12 , 1011, END-101 2 IM*GNAHE(K)»WT 
T011  FORMAT!  H, *127*5 .T1 

GNANE(V) ( 9t !?)-•. AVG* 


2625  GO  TP  1013 

7650  101?  CONTINUE  - -  "  “ 

2675  NO  -  K-l 

7687  REWIND  1? 

2700  1015  CONTINUE 


i  - 

2900  IFOF  »  0 

5000  OPEN!  UN T  T - X TP , NA  * F  -G  N A  ME TN5T  TVRFAD 0 NLY  .TYPE  -  77ILD1 

3100  *  •  (INFORM  A  TTFO * .PRR-16  8 ) 

3700  1 02  CALL  OAT  A  f  1  .TETJFF  -  - - 

3300  IFI IE0FI165, 105*105 

— 3*00 - EU5 - WT-  T.~0 - 

3500  IF(ISSW(l5IU10yii5,ll5 

3500  IIP  WT  -  WGT  - 

3700  115  DO  160  I-JSW.KL1ST 

— 3900 170  XT  -  WBLINVTrrr  - -  - 

*000  C(  lREC.n-C(t*FC«T>  ♦  Ofl)  *WT*f  AV*XT*  (5Y*CV*XT)  * 

*ioo - x — wBciNxm  n - 

*200  160  CONTINUE 

-*300  on  to  102  -  - — — - - - - 

*350  165  TF< TSW.E0.221G0  TO  800 

5355  GO  TO  170  - - -  - 

*382  168  WRTTE(KTTX,*)*ERROR  READING*  *GNAME  f  N5T1 


NTUV  1  (  V  L  1)15  1  1  I3UX 

*600  WRITE(10*l)KPLCP 

*700  "  130  GO  TO  1500  - — -  - - 

*800  C  ♦♦♦***♦♦♦*♦  §2  ZERO  TABLF  SET  PARAMETERS  ♦****♦♦*♦* 

-*900  200  DO  710  l-JSN*XtTST  - 

5000  00  210  J-1,100 


')OLD*  »FORP> 


5200  IF(  ISW.FO. ??. AND.LFILE.EQ.01G0  TO  170 

5300  GO  TO  1500  - 

5*00  C  ♦**♦•♦•♦♦♦♦*  *3  SET  PARAMETERS  ♦*♦♦♦♦♦♦**♦♦♦*♦♦♦♦♦*♦♦*** 

5500  TOO  ITT  JSW 1370*  370  mil  - - - 


in 


•5600 

5700 


5900 

6000 

6100 

6700 

6500 


6500 

6600 

6700 

6000 

6900 


u«m«i 


7100 

"7700 

7300 

7T00 

7500 


r  ouu 

7700 

7000 

7900 

8000 

8100 


Mtli 


8300 

T*U0 

8500 

8600 

8700 


*1 


9500 

9600 

9700 

9800 

9900 


10100 

T0700 

10300 

TO*OU 

10500 


IUOUU 

10700 

TU800 

10900 

TIOUO 

11100 


11300 
IT*  00 
11500 
TI60O 


>10  -  l 
NVtll  -  51 


NV(31  -  86 
MV I 41  -  87 
NVI51  -  63 
MVf6)  -  -1 
00  317  1-1*6 


JC1  -  l 
CR1  -  1.0 
JC 7  -  ? 
CR?  —1.0 
JC3  -  3 


JC*  -  * 
CR*  -  1.0 
AV-l. 
BV-0. 
CV-0. 


JEFF  -  50 

370  TFt  JSW13*0,3?5»M325 

375  MRITE(KTTX,3rOO>NO,1NVfKl,K-lM61, JREfUJMAX 
R F  10  (  KIN  ,  *  1  NO  ,r  f  NV IX I  ♦  K -T*~6T*  HEEF,  J'MTT 
330  MRITE(KTTX,33001AV,8V,CV,  (N)f(TM>l,«) 


LinjUiinmtiinGn.i] 


3*0  MR  ITE  C  KTTX,  3*001  A1',A7*  A3*  81*82^83 

R  F  AO  <  KIN,  ♦  1 A1  *.I7V»T,  8 1 ,82183 
WRITE»KTTY,3500INXl,NX?,im,ltY? 

RFAOTX7NV*  INV7  ^RX77NVTYNY7 - 

775  GO  TO  1500 


3300  FflRHATUH  ,  «  AV.'B  V  ,  CV  ,  NX  t  6  »  •  ,  f  V3F6. 3 , 61  3  V 

3*00  FORMAT  (IW  PL1TT "RlVAMFTFVSs - A1 - A7 - 

♦  B1  82  B3,,/rT6X,6F9.31 

3500  FORMAT  CTH  ,*  WXI  "NXZ  W3T - NV7r,  77*T5T 

C  ♦♦♦♦♦♦♦♦♦♦♦  •*  AVER AGP  TABLE  ♦♦♦♦♦♦♦*♦♦**•*♦♦♦*♦*♦*♦♦♦ 


ITlCt  J, 6 11*05, *15,  *05 

*05  00  *10  I-J5H,KLT3T  - “ - 

*10  C1J,I1  -  C.  (  J,I  >/Ct  J,A1 

*15  JMAX  -  J  -  T  - 

IFU55M!21  1*20,'T  500, 1500 


w  »»»  •  »  u  ,  »▼  »  t  /  t  jit* 

*75  FORMATtlH  ,*!T3,7X11 

GO  TO  1500  - - 

C  ••***♦♦♦*•♦♦♦*♦  «5  A 00  COLUMN  J5M  ♦♦♦♦♦♦♦*♦99 

500  TO  510  J-7*  JMAX  - 

510  Cf  J, JSM 1  «  CfJ-lVJSMl  ♦  C  t  J, JSM1 


*6  LTST  TABLE 


MR  ITE  f KL 1 5  T ,60551 NO, JREF*  JMAXff NVIK 1 ,K-1  ,61 
mr  tte  on:  tst  ,6056nnr,  by  ,  cry  t  nxft  1 , 1 -1 ,6 1 

00  610  J- l , JMAX 


MRITEtKLI5T,60501 J,KR,tC< J,K)MK-1,61 

610  CONTINUE  - - - 

GO  TO  1500 

6000  FORMATITH  -,73**1  -  - 


$ 


-VI 


't 

m 


□  TTTTO 
11800 


i  nuu 
12000 

12200 
~  T717JO 
12400 


12600 

T7TOO 

12800 

T7O00 

13000 


l  3  L\J'J 

13200 

13300 

13400 

T3500 

13600 


13800 
13000 
14000 
“14100 
14200 
— 14100 
14400 
14100 

14600 

T4T00 

14800 


i  i-»uu 
16000 
T8100 
18200 
T5TW 
18400 


18600 

T870U 

18800 

ITOOO 

16000 


161UU 
16200 
163 00 
16400 
TOVTO 
16600 


•  V  '  W  V 

16800 
'  16100 
17000 
17100 
17200 


1  I  JUV 

17400 

17800 

17600 


6080  F0RMATmiT5*?X,6El0.41 . 

6088  F0R*AT<1H  *314*6X8) 


C  ***********  (17  plqj  J4BLF  ♦♦**♦*♦♦♦♦♦**♦♦♦*♦*♦♦♦♦♦♦ 

700  C0NTTN0F  "  - - 

JMN-1 

■  '  NTURV-l  -  - 

WRITF(KTTX,'7000) 


Lll  1 4^  ru  U  1.1  c 


IFfNCURV.GT.6)NCURV»6 
WRITE  f  XTTY*7010)PLABir 
IFfN0YES(KIN*KTTX).EQ.I) THEN 

RE  AD(K IN, 7020 JPLABt  —  . 

CALL  STRIPIPLABL) 


rmjir 

WR  ITEIKTTX, 70301 
IF  1 NOYES (K  171* X  TT  X I .  F 0 . -TiTHFN 
WRITE  IKTTX*7040)XMf N*XHAX*YH!N*YBAX 

r  f  a  n  c  x  i  n  ,  *  txm  »fi  yw  *ir,  y«  rw*  Yfmr 

CALL  AC,SETF(6HX/HrN.  ,XNIN) 

TAC1 

CALL  AGSETFI6HY/MIN. ,YKIN) 

CALL  AGSETF{(YHY/MAX.  ,¥«A70 
FNHIF 

WR ITF (KTTX,?030)XLAftr  " . 

IF  f N0YF$CKIN,XTTX).EQ.1)THEN 

-  p  F  A o  f  r TN  *  70203  XLTBt - 

CALL  STRIP(XLABL) 

ENOIF 

WRITEfXTTX,  7060) YL  ABL 
TF  f  NOYF 8  t  K  T N ,KTTX1  .TO TT TTHFN 
RFA0IKIN,702O)YLABL 


ENOIF 

STT  UP  PLOT 
CALL 
CALL 


kiUt.ta 


LABEL  "  - - 

A  GSETF ( l IHLABEL  2NANE • * 1HT) 

A  C  5  ETF  TT  7HL  TNE/NUBBER.  *VR8  ) 


PARAMETERS 


E7NXT  PLOT 


I  %  ff  8 


CALL  AGS ETF I 4UR0W. ,2. ) 
CALL  AGTETEr6HFRARF.  ,7T 
RF AO  DATA  INTO  PLOT  ARRAYS 
00  710  K-1,NCURY 

WRITE(KTTX,7070) JSW 


IW‘ 


IF1TSSW(8)  .EO.— 11TMFN 
WR  ITE  rKTTX,7UW0) 
REAOIKTN,7090)ICHAR1K) 

FNTJTF  -  - 

I  JM-0 


I JM-I JM*1 

PR*FLtTA  TT  JPRTT*RTPR  *WSEC 
XOAT( I JM,X)-Bl*CI J*JSW) 
YOATI  T  Jir,1T7*Rr*Rir  <r~KT*\ 
710  CONTINUE 


♦  8Z*C I J*NX21  ♦  B3*PR 

c jfwri)  *  Aoyrry.wTTT 


CALL  AGS ETF I8NY/0R0FR. *1. ) 

TLSE  - 

CALL  AGSETF  C  8HY/0R0E  R. *0. ) 
FTtOTF  ~  - 


+  '  #  i  '  .  i.  m  1 I, 


113 


17800 

17900 

18000 

18100 

moo 

18100 

TB400 

18500 


CALL  AN0T4T ( XLAftL *YL A&L, 0*0, 0*0.1 

CALL  F7NXYIX0AT,YDAT, JDIN,NCURV,T  JN,PLABL1 

CIUL- AC'Gf  TM  tBH5EC0ND'A9Y7uSF*.  1 - 

IFf  O.GT.XVMd  l.  AN0.0.LT.XYNf2)lTHEN 
CALL  L!NENCAR<0.,XYMm,0 .,XY*T4 H 
FNO  IF 

TEUSSW!51.F0.-<1)THFN 
00  720  1*1 , NCURV 


- TOFOTJ 

18700 

18800 

18900 

19000 

19100 

720 

- CALL  PrTINTSdTOATI  rTTTTYPTT  11,31,1  J*,  I  CN'ATH  TT+in - 

CONTINUE 

ENOIF  “  ~~  . 

CALL  ACSE TF ( 6HX/N ON. «l.E36) 

CALL  AGSETE ( 6HX/NAX. ,  1  .E36 1 

CALL  AGSETEI6HV/NIN. «1.E36I 

— 

- 

19300 

CALL  F PANE 

19400 

GO  TO  1500 

19500 

C  FORNATS 

19600 

7000 

FOR  NAT  1 1H  , •INPUT  *  OF  CURVES  IN  THIS  PTO"F<«AX  15  61? 

19700 

►  AND  INOEX  OF  FIRST  POtNTld 

70TTT 

,’1014) 

19900 

7020 

F0RNATU0A6J 

20000 

7030 

FORNATdH  ,*05F  DEFAULT  AXIS  PAR  AHETER'S  ? *  1 

20100 

706  0 

FORNATdH  , *  CURRENT  VALUES  OF  XNIN, XNAX 7YMIN, YHAXT * , 7, 

4EID.31 

20200 

7050 

FORNATdH  , *  CHANGE  X-AXIS  LABEL?  OLD  LABEL  IS7»,7,4H 

,10141 

20300 

7060 

FORNATdH  ,'CHANCF  Y-AXIS  LABEL!  OLO  tABEL  I3*N7,4H 

, 10A4 1 

BiiLliIfl 

20500 

7080 

FORNATdH  y  ’INPUT  IDENTIFYING  CHARACTERS  1 

20600 

7090 

FORNATdl) 

20700 

C  ***********  *8  CONFUTE  OH  AND  PE  ♦**♦♦♦♦*******♦*** 

20800 

800 

PPR  -  0.0 

¥■* 

20900 

OEL A  -  Cd,l»-Cd,2> 

p  i 

1*1*1*  BP 

OFLB  -  OfcL# 

9 ' 

21100 

00  820  J" 1 , JN AX 

21200 

805 

PR  -  JPRf  J.NPR  wNSFCTIDNl 

- - — « 

21300 

OELP  -  PR— PPR 

2140  0 

OFLA  -  CfJ,l)-*CI 1*71 

21500 

DHX  -  0.5P(0ELA*DELB1 POELP 

—J  Ud.AJ  ,1 39  Td  J.Li.1 :  1  H  I  I  |  II,  — — 

21700 

IF(  J— 1)815, 818V815 

7T80O 

810 

C 11,11  -  DHX 

" 

21900 

Cfl,21  «  PEX 

77000 

GO  TO  817 

22100 

815 

C«J,il  -  CfJ-lVl)  ♦  OHX 

07771  •  CfJ-1721  ♦  PEX 

22300 

81  7 

DELB  -  OEL A 

27400 

820 

PPR  -  PR  . .  '  '  .  '  '  - 

—  . .  ' 

22500 

TFdSM.EQ.221  THEN 

77575 

RLTST-7  -  -  '  '  “ 

22550 

GO  TO  1000 

* 

77575 

FNDTF 

22600 

TEf TSSMf 2) 1825*1500  ,1500 

% 

77700 

825 

MR  TTFI 4 ,475 1 XB97T5MV  J3W,KLTST 

- - - - — ~~ 

■  ■  .-M 

22800 

GO  TO  1500 

72900 

— 

‘ 

23000 

900 

00  950  I«J5W,KLTST 

73100 

PPR  ■  0,0 

23200 

CPR  -  Cfl,Il 

73100 

DO  940  J-1,  JNAX  - - 

- - -  — 

23400  910  PR  -  JPRf J,NPR,NSFCTI0N1 

77500  IFfT5fr.FO.771  00  TO  917 


1 

114 

. 

27600 

23700 

— mm - o- 

FEX  -  0.5* (Cl  J* TT*CP RT* CPF ~FFRT 

GO  TO  918 

23900 

24000^ 

24100 

"74700“ 

24300 


£ 

24500 

24600 

24700 

74000 

24000 


25100 

75200 

24100 

25400 

25450 


25700 

25800 

25000 

76000 

26100 

"26700 

26300 

76400 

26500 

76600 

26700 


26000 

77000 

27100 

77700 

27300 


C  f  TVV 

27500 

77600 

27700 

27000 

27900 


c  ouuu 
28100 
70700 
28300 
70400 
28500 


t 


28700 

70000 

20900 

2*7000 

29100 


?  g 

29300 
29400 
«  29500 

^  70600 


*»18  I F  I  J— 1 1 93  0  ,'92  0,<930 

920  Cfl,Tl  •  FFX  "  - 

GO  to  940 

7T0  CFP  -  CTJ*Tf  - -  - 

c(j*d  *  cfj-*wr>  ♦  pex 


950  CONTINUE 

TF  ( ITSVTf  2  J 1 975*1500«T500  - - 

975  WRITE! 4,425 IK8R, I SW,JSW,KLTST 

CO  TO  1500  - 

C  ***********  *10  SUBTRACT  REFERENCE  VALUF  **♦**♦♦♦♦* 


iVIUU  WU  IU  l*  >1 

C»EF  -  C(JREF,!> 

no  1040  J-l,JMAX  . . 

1010  C  f  J  ,  I)  •  CREF  -  C(  J,  II 

1040  CONTIWF  - - - - -  - - - 

TF ( TSW.FO.22l  GO  TO  1425 


IF  (TSSWf 2 >  11075, 1500, 1500 

1075  WRITF!4,4?5)KR«NISW,JSW,XLTST  - 

GO  to  1500 

C  ************  *n  AOO  COLUMNS  *♦*  *44*4*4444  *44  #4  »* . . 

1100  IF f JSWI 11 10,1120,1110 

— rmr — vfttftrttt  ,  rrt  5 1  jct,  cr  1 ,  Jt?,cr2  ,jC3vcr  3  ,»JC4  ,c  1 5 - 

REAOIKIN,*) JCI,CR1,4C2,CR2, JC34CR3* JC4VCR4 
GO  to  1500  - - - '  ' 

1115  FORMAT  f  1H  ,*  iCl,CRl,  JC?,CR2*  7C’3*CR3,  .TC4,CR4»*  A,4tT4,El2.4U 
1170  00  1125  J-l,  JMAT  -  -  "  - 

1125  CU,JC1)  -  CR1*C!  J,JCl  >»CR2*C(  J,\fC2»«CR3*C(  J*JC3) 


▼  ♦  1 1*  4  —  C  1  J  K  r  t-  ,■ 

IF!  IS5W(2  >  11150,1500,1500 

1150  WRTTE(4,425IKB»,T5W,  J5W,KtH7 -  - 

WRITFI4, 11151 JCI,CR1, JC2,CR2*7C3*CR3, JC4,CR4 
GO  TO  1500  -  - 

C  ********* 


C  *♦♦♦*♦♦♦♦**♦*♦♦**♦•  *13  MULTIPLY  UP  T03  COLUMNS 

1300  I— 1  - 

J--1 

K— 1  - 

CONl-l 


1310 


CONl-l 

WRITE  (KTTX, 17101  -  - -  - 

FORMAT!  1H  , '  INPUT  COLUMN  NUMBERS  UP  T1J  3  VALUES*  AND  CORRESPOND! 

%  MULTIPLICATIVE  C0NTTANTST1 - - - - - 

RFA0(KlN,*M,‘Jf'K,CnNl,C0N?,C0N3 

Trry  1390  IREC»1  »JMAX - 

IFfI.LF.0IG0  TO  1500 

A-c!rRFC,n*cwrr  - - - 

I E  I  J. LE . 0  I  GO  TO  1380 

8-C! TFEC, J1*C0N?  - 

TF!K.LF.OIGO  TO  1381 


GO  TO  1385 

1780  CONTINUE 

8-1. 

1781  CONTINUE 


■Sk 

♦ 

>1 


79700 

24800 


U'llilil 


30000 

totoo 

30200 

707OT7 

30400 


30600 


30800 

~7UB75 

30850 


juno  c 
30075 
30807 
30900 
~~3Tuoo 
31050 


3  1VOO 

31082 

7TTOO 

31206 

- TT2TZ 

31218 


31236 
7174? 
31248 
3125  4 
31260 


JICUO 

31272 

"31771 

31284 

3T79I7 

32183 


32300 
37400 
3  2500 
37550 
32552 


32577 

~7760O 

32800 

37900 

32912 


32936 


1 

Ml 


32958 

3Z979 

33000 


33150 

33173 

33200 

-  Trroa 


1389 


CO-l. 

C<  IREC*I l-A*8*C0 


lLIiHKiI 


L’Hl; 


1393 


T3Tr 


IF  1 1  SSW! 2 1  11395, 1500, 1500 
WTTFT^^T753 1TW77  W*~J3  W  *KL  1ST 
W9ITF  (4, 13mi,  JtK»cONl,CON2f-COH3 

GO  TO  1500 


1400 


1402 


142 

3475 


KTO  -  60 

"  JRFC  -  1  -  - - 

MR  ITEIKTTX, 14041 OUTNAME 

"IFTNOYFS I  KrV,ITTTX>  .FQ.ITTHFN - 

RFAD<KTN,140?10UTNAME 


t  NIJ  1  r 

FORMA  T  (  A 1  2 1 

MR  T  TF  f  K  T  TX , 1 4031 JRPCT* JRFC7 - 

RFA0(XIN,4) JRFC1* JREC2 


OPFNfUNIT  *KTO * NAME *OUTN AME ♦ TYPE**  NEM*  1 


KLIST-6 

GO  TO  100  - - - 

IFIIREC.NE.  JRECI1G0  TO  102 

LFTLF  •  0  - 

lOSTNdt  2)-GNAME’<NST)  d:2) 


Ui-lCkl 


1430 


1 4  PH 


1471 


1422 


1403 

1404 


1F(  ISW.NE.22)  60  TO  1430 
00  145  KREOJRFri. JRFCT 
VR1  «  C(KREC*7SWIM*E-3 
VR7-C(KRFC,31 
VR3-C(KREC,4I 


VR5-C(KPEC,61 

KP- JPR  f  KRFC»HP,R*NSFCTIONT - -  - 

MRITE(KT0»1421)ID5TN*KP*XLAT  t'XL'ONG*  VR1  4VR2  » VR3*VR4* VR5 
FOWTTNUF  -  - - - 

TF  f  NST.EQ. NO  ILF  ILF  *1 


'  u 

VR1  -  VRBLfNVmi 

VR?  -  VRBLTWTZir  - - - - - 

VR  3  «  VR  8L  (  NVf  3 1  I 

CONTINUE  - - - - 

KP« JPR!KRFC»NPR»NSFCTI0N1 


l  *  £  I  ^  j  1111* 

IOSTN! 3:5>-GNAMF!NST 1 16*81 

VRTTFfKT 0,14 71 TT03TN  ,XP,XL  AT  VTLONG  *TRT>VR2  *9R3 *TRT VTRT  " 
^ORMATI 1H  ***^»*j**«**f**F*;***^;3,L 

KLIST-6 


uu  i  u  emj 

ENOIF 

TF  dSW.FC . ??«  ATTP«LFIT E .FO.  1 1 HRTTE I K  T0«  TVZZl - 

F  ORMAT  !  /  1 

Ct03FTOTIT-imn  - —  - 

TF  f  LF ILF  1 200,102*  200 


*  I  1  A  1 1  f  fit  W  VV  *  r 

FORMAT!  1H  « *LFVFL  NUMBERS  ARE  1,2m 

F0RN1TC1H  **TNFPT1tFir  OUTPUT  FILE  NAMFTTE  OR  NO  IT  \TVTf~ 
8RAHCH  0— SHORT  OOCUHEW TAT  TON  ♦♦♦♦♦♦♦♦♦♦ 


1553  W  TO  1300 
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-  —  l  jij.i  Ijji  W30th  'i 


34700  C  **♦**♦**♦♦♦♦*♦♦♦•**♦♦*♦ 

34300  1400  WRITE(KTTX,1505)KB*»ISW,JSW,KLtST 


JRioo - no* - format iih  ^AVRxrstrB-RTTSWiJSwvRrrsi  *,/,'5X,m,r53 — 

34400  KLIST  -  6 

74*00  RFADIKTN,  *  IKBR  *T3TI  *  J5W  ,KLT3T -  * 

34700  IFIKBR.EO.O)  CO  TO  7300 

34500  IT(K8R.GT.??»cn  TO  1500  - - 

34900  GO  TO  10 

noire  c  »♦♦♦♦♦♦♦♦♦♦♦♦»»»>  iT^~TAyr~T»TRFCt 

35100  1600  PE( JSWII610,16?0*1610 

73700  1610  Win  TFfKTT?t  16111 

35300  REA0(KIN,4)X, J 

“73400  GO  TO  1500  ~~  “  '  - - -  - 

35500  1670  DO  1630  IREC-l,JMAX 


- 34600 - CURTC,  J1»AB5rCTIREC,  J))»*X - 

357QQ  1630  CONTINUE 

~33100  rFUS5W<2m65O,T50O,l5OO  - 

35900  1650  WRITE<4,4?5)*CBR,I5W,  JSW, KLIST 

3*000“  wr  tte  14, i*5i  ix,7  - 

36100  1651  FORMATUH  ,E17.6, 7X, l 7 » 


~7*?W 

36300 

3*400 

36500 

“7**00 

36700 


- CUTH15W 

1611  FORMATUH  ,‘INPUT  EXPONENT ,  COLUMN * 1 
C  *******************  BR AliCM  17~SUWWITT0N  OF  FRR0R5  0¥E*  P ************* 

1700  GO  TO  900 

1733  F  OR  NAT  f  1 H  ,2(17,7X77  - 

C  *******************  *«lfl  —  DELP  INTO  CUREC«5) 

— rttitr — *pp«ovo - 


****************** 


- 368X10 

36900 

“7T0OO 

37100 

73700 

37300 


00  1810  J-l,JMAX 

P R  -  JPR  (  J  ,  NPR  ^NTSFCrrONl 

OELP-PR-PPR 

PPR»P1T 

C< J.5I-0ELP 


~ 37400  T*10  CONTTNU? - 

37500  IFUSSVM?m8?5, 1500, 1500 

37*00  IB?5  WRTTE(4,4?5)KW,T3U,  JS¥,inLT3T 

37700  GO  TO  1500 

“37*00“  C  ******************  »1 9—  FXCHANGE  C0UUMN5  ****************** 
37900  1900  WRITE(KTTX, 19101 

3 8 OOO  T9TO  F ORM'A'T T 1H  *  19*03  COLUMN"  NUBBUTS"  TO  5F  EXCHANGED*  I - 

38100  READ(KIN,*H  ,  J 

39700  00  1970  IREC«l*JWAX  -  “  "  - 

38300  CIREC  -  C(IRECVI) 

31400  CUREC,  t>  -  ClfRrCVJl  ~~  - 

38500  CUREC, J)  -  CIREC 

”38600 - TOTTTTTWTTWE - 

38700  IFUSSWf?) >1925,1 500, 1500 

3*500  1975  WRTTE  14,475  |K*R,/TW,J3W*KtT3T  - - -  -  - 

38900  WR ITE  (  4 , 1 755 1  I  ,'J 

39000  GO  TO  1500 

39100  C  ♦♦♦*♦**♦•♦♦♦*♦*♦•  CHANGE  SINGLE  ELEMENT  OF 


C  —  *70 


■35700 - 7000 - WRTTEfXTTX, 70101 - 

39300  70 10  F0»MAT(1H  , ‘INPUT  COLUMN,  ROW,'  NEW  VALUE*  ) 

39400  RE  AO  f  *TNV* 1  y ,3VTCHO  - - - 

39500  CfJ,!l  •  XCMG 

39600  rFflSlWl?))  7079,3300,1500  - - 

39700  7075  WP T TE ( 4, 4 75 1K9R VI SW, JSW,KL 13 T 


39800 - WR  TTFT4 ,  70701  r,~J,  >CHG - 

39900  7030  FORMAT f IH  ,7( r?,7X) ,F17.6) 

90000  GO  TO  1500 

40100  C  •••••♦•♦••COMPUTE  STO.DFV. (XI  IN 
70700  7100  TFtmiTf7»)?tr0V7ir6,?l?O 


COL  1  FOR  X-8AR,X*X*BA»  IN  COL  4*3  **' 
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~4otoo  7110  wffiTFr**A?MK9ryisvvJSw^in:T5T 

40400  2170  00  2130  IREC  «  tVJHA* 

7  •  C t  tREC  »4|-  “ 

40600  CfIREC.l)  «  S,O*TIN0MCCIRFC,3»-Z*n/«NO-in 

~~*oroo  21  to  continuf  ~  ^ 

40800  GO  TO  1500 

4OW0  C  •****♦*•*♦*•*♦  ♦•22--CI1. CUC  ATF  DH  FOR  EACH"  TTITT  ON-^OOTFUT  TNKXF' FORMAT" 
41000  7200  GO  TO  1400 

— 4TT00 - c-rry»<nr»  »»»**»»»  BRANCH  0 — SHORT  OngCUWFNTinON-i-AVKCS  »»»»»»»»»» - i 

41200  2300  OPEN  I  UNI  T»50*'NAHE**  A  VRGS.DOC  *  ,‘TYPF*  *0t  IT*  »  READONLY I 

4FJOO  00  7WN- 1,200  ~ 

41400  RE  ADI  50, 2325, END-2355 H DOC  til  VI -1*9) 

moo  wrtte  fktty  ,  2  ttottboctt  tyt-itot 

41600  2350  CONTINUE 

4TTOO - rm — P0ftH/m«>A8i - 

41800  2330  FORNATtlH  ,9A81 

moo  7355  CLfisF  tun  it  •501  “  *— 

42000  GO  TO  1500 

47T00  ~FNO -  - 


1 


J 


TOO 

200 

~l(TO 
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TTCT  TT  1977  ***** 


C  T IllT  SUBPROG  PFPLT  ***** 

SUBROUTINE  TABLF 

f-»-*-**-*Trr»  ********  **»*•**»  »**»»»»»**»****»  *»»»»»»»»»***»»»*»»* 


.  4 

"V 


t 


t  . 


2900 

1000 

7100 

1200 

T300 

3*00 

3700 

3600 


1700 


3800 

*T00 

*700 

6100 

**00 

*500 

*600 

7700 

*900 

5000' 

5100 


9?00 


5300 
5700 
5500 
5600 
5  700 
5000' 
5900 
6000 
6100 
6700 


*00 

C 

w 

- 500 

r 

TO  CONFUTE  AND  PLOT  PTJTFV  VARTAOL.TSV . 

600 

C 

JUNE  2  7  1976  N  FOFW0FF 

l 

- TOO" 

c 

VAT  VFR ETON — NOT  I960"  MURRAY  “  '  . 

000 

c 

900 

nJCLlfOE"  *  CONPFFCT.'F  OR* 

950 

OINFNSION  V AR ( 100,9 ) 

"  TOOO 

C 

'  . . .  '  '  '  . 

1100 

C 

PROO 

1700 

IT  IISW-1 1600, 15,10  - 

1300 

10  NOSTN  -  0 

- 1500 — 

NO"'*  T 

1500 

NX1-1 

~w" 

1600 

NX2-6* 

1700 

NY1-2 

-  T600“ 

NY7-12 

1900 

A  1  •  1 « 

- 2000 — 

A  7  *7 

2100 

01-1. 

7700 

B7--.003 

2600 

X20IM-3. 

2700 

Y70IW-1000. 

2720 

X5IN--U0. 

- 2  7*0 — 

'"X*AT*=50 .'  “  '  """  " 

2  760 

y*in--ioo. 

‘  77B0 

Y«AX--30 

2000 

15  WR  ITE<XTTX,1505)NO,PNIN,PNAX»X20I»*,Y?OIN 

1505 


FURFATIIH  ,*60.”  STATI0NS7rNO7P51N,  P6ir,Tf2DI6,T?0T*l'T 


%T*,*r7.0 


RFADIK!N,*)N0yP«!N,P«AX,X2Din,r20I5 
J^TN-T - 


WRITEIKTTX, 70001 
RFBDIKTN,*) JWTN 
WR TIE (KTTX, 70101  PL A8L 
IF (NO YE 5  f  KIN,KTTX1 .TO.  11  THEFT 
RFAOIXIN, 70?0)PLABL 


FNOTF 

WR  T TF  (  XTTX,  70*0 1  X6T N  , XOrXJTOTXrTYW AX 
RFAO<KIN,*)XNTN,X0AX,YNIN,YWAX 

CALL  AGSFTFI6?TX/6rN.  ,XNTN) - 

CALL  AGSETF ( 6HX7NAX. , XNAX ) 


CALL  AGSETFf 6HY7NAX. ,Y*AX) 
WRITFfKTTX, 70501 XLIUL 
IF t NOYES (KrN.KTTXl.FQ.ll THEN 
RFA0IXTN,7020TXl;ABU 
CALL  5TRIP(XLA«L> 

FNOTF 


WRTTF(*TTX, 70601 YLABL 

TF  INOYFS ITTH,KTTX)  »TO  .1 ITHTTT -  -  ' 

RFAOf XTN, 70201YLABL 
CALL  STRIPfYLTBLl 
FNOIF 

“CAUL  TOTFTFTSTTFinrNFTTTTT - 

RF  TURN 

*****  PLOT  R«TJUTU  FURNATS  ***77*7*7******r**r********* 

FORNATIIH  , *  INPUT  TNDFX  OF  F1R5T  POINTS*) 

F0RNATT1H  , *  CHANGE  F10T  L ABTLT  OLP  LTBFL  TS s *, /,  *W 


\hi 


7000 

7010 


□ 


,T0A71 
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6300  7020  FORMAT ( 10 A4 ) 

6500  7040  F  ORMA  T  (  1 H  t'CHRRENT 


S600 

FORMAT ( lH 

6700 

7060 

FORMAT ( IH 

-  7100 

600 

CORTTAfUF 

7200 

C 

7300 

18 

DO  180  J-4, 

7400 

DO  180  I-i, 

7500 

7800 

180 

CTTTTT  *  0. 
DO  101  K»l, 

♦•CHANGE 


6 

100 


VALUES 

X-AXT5 

Y-AXIS 


OF  XMIN,XNAX*'YWIN.*YWAXT  *,/,4F10.3) 
LAWFLT 
LABEL? 


HOT 

OLD 


CAseu 

LABEL 


7TT»T7v4Tr 


r5T4V 

10A4I 


IS***/ *  AH 


NO 

7000  RFA0I12, 1010,FND-106JM,C^AWmnTMl 

8000  1010  FORMAT!  I  4  ♦  A 1 2  ,'F5 . 2  > 

8100  GNAMF  TK  )  1 9 : 1 71  »"*  «~A  VG  * 

8200  101  CONTINUE 

"TT250 - rCT6 - FFTWTCT.  1T-TTW»«T^I - 

8300  REWIND  12 

~!T500  00  DO  175  JST«l,NO 

8500  IE0F-0 

TT600  0OFNIUNTT-KTi»,TIAMF-( 

8700  ♦  'UNFORMATTED*  *«FRR*1 75 ) 

■  8800 - 


’OLD^VEORT*- 


-75 - CALL  DaTAfltTETiri 

IF (  IEOF.EO.-1 >G0  TO  111 

X  -  Al*VRBL(Riyn*A?*VRBLnnr7T>HT*VRBLTTfim4A4#rfl»rEr,n 

Y  -  Bl*VRBL<NYll4B?*VRBL(NY2»4B3*VRBL(NY3>*B4*C<f*irC*?l 
7  -  cT*vnBLriOTj>r7*TRBi:r 
XPR-A1*VRBL(NX1I 

- -  YPR'-BirVR-RLINYir 

WT  -  1.0 
VAR(TRFC,11«PF 
VARURFC*2)-XPL' 

VATT(TRFC»31  "YFL 

no  950  M-1,6 


8900 
9000 

9100 
"9200 
9300 

97FU0 - 

9500 
<7509 
9518 
95  Z  7 
9536 

-9555 - VARyrRFC*M»3)«VRBLTNVIMn - 

9554  950  CONTINUE 

9578  IFnTSWTTDl  .E0.I1TWFN  - 

9581  WRITE IKOUT, 1621 H VAR f I PEC « K I  * PC»l* 9 ) 

9587  FNOIF  - 

9590  1421  F09MAT(9F8.3I 


9595 

9600 

9700 

9800 

9900 

10000 

142? 

940 

980 

985 

FORMAT!/! 

IF  t  TSSWC15I  >980 *'985*985 

WT  -  WGT  - - 

C( IRFC*4»-X 

C  f  TRFCY5  I  «Y  -■ 

CHREC.6  W 

— 

IOIOO 

10200 

110 

WR ITE (XL  1ST, *>PE,X,Y,7 

T0300 

1100 

FnRMAT(2I4,A?^Tr,T7.0*3F10^47'  “ ' 

“  •  - - -  -  — 

10400 

113 

GO  TO  95 

10500 

10600 

111 

CONTINUE  - 

IFI  ISSWdOI.EO.-l.ANO.  J5T.EQ.ND> 

19700 — 

11300 

IT40O 

- 4WR  I  TF(  KHUT  ,142  71 - 

IF(  rSSW<6!.EQ.-DC0  TO  175 

171  I  JfT  -  0 

11500 

00  172  K-JMIN*IREC 

11600 

I JN-T JW41 

_  - -  _ 

- - - - 

. .  -  - 

11700 

XDAT ( I JM , 1 )  *  C(K,4) 

11900  17?  CONTINUE 

12000  Tf  I  JST.GT.11TWF19 

12100  CALL  AGSE  TE 1 11HBACRGR0UND*  *6# I 

17700  FNOTF  - 


120 

17300  CALL  F«$TJ>Tt*BAT(l,n*YDAm.l>> 

12400  CALL  ANOTAT(XLABL»VLABLtOtOtO,0.> 

12*500 - rgtt~C7WXT  I  XPAT,Tr>A7t IPTWTTrt  JW,P 

12*550  T  F  f  IS$W(5).EQ«— 1 1GO  TO  175 

~T7500  YPP2*YPR  ♦F2AY70T75  - 


12700  XPR2»XPR-A?*X?OI* 

TFnXf  XPR3-XPRVA24X?T)T* 

12900  CALL  LINENCARI XPR,YPR*XRR*YPR2> 

nnnro  call  ltnencar f xpr7 *y pi? •  tpr ttythtt- 

13100  175  CONTINUE 

TTI50  ■"  TFCT55W(6ir.T0.-nCTT  TO 

13200  CALL  FRAME 

moo  CALL  ACSETFf  EiHYTWTN.  *  1TP76) 

13400  CALL  AGSETF ( 5HX/HAX*  »1.E36) 

- TTYTTO - CALL  A  CSETF  I  6HT  TUTU";  ,  1 .  FT63 - 

13600  CALL  ACSETF ( 6HY/MAX»  »1.E36  ? 

TTTOO  CALL  AGSETF  f  llWBICTOinjUND .  ,  l *  ) 

13900  178  IFUSSWI10).E0.-1 I CUJSF  (UNIT-ROUT) 

13900  "  RETURN 

14000  FNO 


C  data  SuRR  PEP LT  SEPT  15  1977 

SUBROUTINE  OATAfNSW* TFOF) 


[  T  IIiriTIIITIIITII  IIIIIIIlIllIIITIIIIIlll' 


C  PROGRAM  TO  READ  AND1  SELECT  POTEN  DAT#* 
C  JUNE  2  7  1976  N  F OF ONOFF 
C  VJY  VFRSr0N--N07  TWO.  ET.BRAY 
INCLUDE  'CONPEPLT.FDR* 


900 

1000 

1100 

T70O 

1300 


MW  -  1 

I"F  I NSW) I *20, 200 
CONTINUE 


2700 

7100 

2900 

3000 

3400 


3600 

7T0O 

3800 

3900 

4000 


4100 

4200 

4300 

4400 

4600 

4700 


IFLAG-0 

RETURN  “ 

20  CONTINUE 

172  WRITE<KTTX,IF3)0AY1,DAY2 


RE AO (KIN,* )0 AYl ,  D  A  Y2 

174  MR  T  TE  fKTTY,l75 1 XE*N ,XEWX,YNWN,YNHX 

175  FORHATtlH  * 7HE-N  LIM,4F7.2) 

RFADCKTN*  *)  YEMV,  YEMY,  YWWN?7WJY 
WRITEIKTTX,l?7)7LT0,ZLG0* JD0VPM1N,PM*X 


177  F0RWATI9H  HRIOTN:  ,  2  f  X  ,  F B .  3  )  ,X ,'4H  J DO f  ,¥ 
RFAO<KIN,*)ZLTO,ZLGO,  JD0,PMINf<P'*AX 
RETURN 


200  !F(TFLAC,.E0,1)<?0  TO  217 

RFAOIKTp  , END ■ 2  80 )  RHDG 


4875 

5000 

5100 

5200 

5300 


■5^00 

5500 

5600 

5650 

5700 

5800 


701U 

5900 

6000 

6100 

6700 


251  IF  f VOAY-OAYl 1780,252*  252 
752  IFfDAY2-X0AY»280,254,254 

264  IF  f  XLONG-XFNN ) 280 , 756 , 256 
256  I F  f XEMX-XLONG 1280,258,258 


260  FF  f  YNMX-XL  AT ) 780,267, 267 

762  YPL  -  -111.1 7*  ( YLONO-7t G0T»C05n XLFT473.T0T7 11V.5V2 ) 
♦  ♦  JD04FL0AT  f TCON) 

YPL  •  lll.l2*CYU*rr-7LT01  - -  - 

DAY  «  XD AY 


'IIIVJ.III 


2615 

7620 

7625 

7630 


TFU5SW<13))2620,263,  263 
TEITREC  -1 ) 2630 *2675T?630 
MR  ITE (KOUT)KHOG 
WRITE  TXUUTlimrr 


I 


PFPLT  5UBR  PFPLT5UB  SEPT  15  1977* 

VAX  VERSION  NOV  I960.  N.BRAY. 


li.'iAAtiL'HJiiAAii.rmi 


TO  EVALUATE  POLYNOMIAL  OF  ORDER  N-i  VtTH  COEFF  CPftl, 
JAN  28  1976  N.  FOFONOFF 
01  MENS  I  ON  CPU) 


•si 


800 

550 

900 

950 

1000 


4W7U 

1100 

1150 

1200 

1750 

1300 


MOO 

T*5D 

1500 

“1550 

1600 


107U 

1700 

1750 

1800 

1550 


Ji 


2300 

7150 

2800 

“7550 

2500 


2600 

~7650 

2700 

7750 

2800 


2900 

7950 

3000 

1050 


V  «  VO 

TFl V— VWN1I *  2*2 
IV-  VNN 


'  M  k'M'AI 


3  V  -  VNX 
8  POLY  »  0.0 
X  -  V  -  OVN 
00  lO  T-TtX 
NT  -  N  -  I  ♦  1 


RETURN 

FND  -  *"  ' 

DPDV  FCN  ♦***♦♦*♦*****♦♦♦♦♦*♦*♦♦♦♦*♦•*♦♦♦♦•*9 

FUNCTION  UPUV rW.OYWTCPyN  t  VMN,' VWX1 - - 

•  **■#♦•♦*+*♦*♦♦**♦♦•**#*♦*♦•♦•♦**#*♦♦♦♦*♦♦••♦**•*•• 


TO  COMPUTE  DERIVATIVE  OF  POLYNOMIAL 
JAN  28  1976  N.  E0E0N0FF 
DIMENSION  CPfl) 


V  «  VO 

TF(V-VMN?I,2,2  - 

1  V  -  VMN 

7  TFIVMY-V)3,8,5  - - - 


1900 

3 

V  -  VHX 

■i  Vl^l 

4 

Nrtl  -N-I 

2000 

X  «  V  -  OVM 

7050 

OPDV  -  0.0 

2100 

DO  20  I  - 1 #  NM 1 

7T50 

NMI  -  N  -  T 

2200 

20 

DPOV  -  DPDVAX 

PND 

8 NIT  FCN  •♦***»*»*M********R***r*9*9999* 
FUNCTION  BN0Uv7MlN,fMAX) 
#♦*»♦*♦♦****♦»♦*****  *?»#♦«  M*  #* 


illMAUl: 


FND  -  Z  ‘  ‘  ' . 

TFf 7-7MINI10. 20*70 
lOT  8 NO  •  ZFTTT 
RETURN 


30  UNO  -  ZMAX 
*V  FFTURN 
ENO 

JPF  FCN  •»•*»  FT55I 


I 


124 


1 


1 


3TO0 

3150 

'3700 

3250 

77UO 

3350 

~3400 

3450 


FUNCTION  JPRf I*FC*NPR*N5J 


C  GENERATES  PRESSURES  CORRESPONDING  TO  IREC. 

C  - 

C  OCT  28  1975  N  EOFONOEF 

0I8FN5I ON  NPR (II 


- 3500 

3550 
'  1500 

3650 
T70TT 
3750 

~c - 

no  ioo  j-i*ns 

TF(TREC.LT.TIPRT371TWEN 

JPR.NPR(NS*J1*ITREC-NPR<2*NS* JM 

RETURN 

FNOIF 

i  ' 

i 

t 

•4 

-  i 

3800 

3850 

7900 

3950 

4000 

100  CONTINUE- 

JPR-NPR  <  2  *NS  I M IREC-NPR  <3*NS  > 1 

RETURN 

END 

t*** ******************** *****#**********>***********»*»** 

v-S 

4050 

SUBROUTINE  STRIPUI 

•i 

4150 
“  5700 

4250 
4700 
4350 

C 

C  STRIPS  TRAILING  BLANKS  AND  PUTS  A  4  AT  THE 
C  IN  ARRAY  A  FOR  CONEORNANCE  KITH  NCRR  PLOT 

C  N.RPAY  17NOV80 

C 

E  NO-  OF  CHARACTERS 
PACKAGE  LABELS 

r- 

4400 

4450 

tJfHf  HSION  ft  t  l"l 

C 

4500 

B-’  *  . . . 

-i 

: 

4550 

no  ioo  j-i,io 

4600 

K  *  10— J  ♦  1"  - 

4650 

If  IA1K1-8I200  *'100*200 

9750 

5800 

9850 

TF900 

9950 


7U»« 

5050 
5TOO 
5150 
*  5700 
5250 
'5300 
5350 
5400 
5450 
5500 
5550 


70WV 

5650 

5700 

5750 

"5800 

5850 


5950 

-&xmv 

6050 

6100 


700  NCH«K*l 

TFfNCM.GT,10>NCW«10 
A(NCHI-*t  * 
RETURN 
FNO 


ItAHUL 


n?«*OV  FN--SECOND  DER  TVATTVE  OF  POLYNOHIAL 
FUNCT I ON  07PnVTV0,UVNtCP *NWHN *"VWX1 


nr^rmni  i  roTiwoFF* 

OINFNSinN  CPfll 
V  -  VO 

S  F I V-V8N) 1*2*2 


1  »  “  »nn 

2  TEI  V*Y— V I  3*  4**4 

3  V  •  VOX 

4  NN1  -  N  -  2 
X  -  V  -  0T8 
07P0V  •  0.0 


* 


il  lM> 


N*T  •  N  -  I 

11*12  •  N*I  -  1  - - 

20  02POV  «  02P0V4X  ♦  FL0»T<NN1*NHIZI*CP< SIMM) 

return  -  : -  - 


6150  END 

6200  C  SEAMATEP  PROPERTIES 
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6250 

6300 

6550 

6400 

6450 

6500 


T 

C 


SCO  ♦♦♦♦♦ 

FUNCTION  SGOfS) 


C 

c 

c 

T~ 


ST ON 1-0  KNUD SEN 

FEB  15  1976  N.  FOEONOEF 


6550~ 

6600 

6650 

6700 

6750 

6800 

■6650* 

6900 

6950 

7000 

7050 

7100 


SCO  -  C  (6.  76786l36E-6PS-4.8249614E-41P5'«t0.81487657Tl*S 
X  -0.09 3 4 45 8652  ~~ 

RETURN 

END 

SCT  FCN  ♦♦*♦♦♦♦♦♦* 


C 

C 

C 

XT 


FUNCTION  5GTTT,5,SCV 


STOOl-T  KNUOSEN 

FEB  15  1976  N  FOFONOFT 


SC 


-  SGOISI 

rrre=T7  4580  3  0  6TE^  *'  T  - 1 9 8  2  4 8  3 9  9  E*  TJ  W  T  -  0  .5 4 5 9 191 1  IT*r 


rrscr 

7200 

7750 

7300 

7550 

7400 


20  sir 

X  ♦4.53168426)*r)/CT*67.261»( ((ti;667E-8*T-8.164€-7F>T 

X  ♦1.0O3F-5 »4T)*SC»(  f-1 .0843F-6*T*9.8 1 85F-5T *T-V.5f67F-3)*T 
X  ♦l.OI^SG 

RFTURN  “  ~ 

FNO 


FOUITTON  OF  STATE  "FOR  SFAWATFR  FBStO 
♦**♦****♦*♦*♦♦****♦»»*****♦****•***«♦**«♦♦*♦♦*♦**♦#♦*** 
REAL  FUNCTION  EOSBOfPl *T*S1 
******************************************** 

EOUITfON  OF  STATE  FOR  SFAUATFR  PPTJF1TJF0  T^TPOrrS  IVUT 
RFEFPFNCES 


T45TT 

7500 

555¥ 

7600 

7650 

7700 


T75U 

c 

i.niia  iibibijmvi  rnn  nam 

RES.  *'278«255-E¥5 - 

7800 

C 

JPOTS  NINTH  REPORT  1970,TENTH 

REPORT  1980 

7850 

c 

UNITS : 

7900 

7950 

c 

c 

PRFS5URF  P 

INPUT  PRESSURE  FT 

BARS 

DEC  I8AR5 

8000 

c 

TEMPERATURE  T 

DEG  CELSIUS  HPTS-681 

§050 

8100 

¥150 

8200 

8750 

8300 

8350 

8400 

¥450 


- SAlTnITV - 5 - NSu  MPS5-78 V 

DENSITY  RHO  KC/8443 

SPFC.  VOL.  E0580  ¥4rj7¥C 

CHECK  VALUE:  E0S80  •  9.435561E-4  NP*VKG  FOR  S’  -  40  N5V* 
T  V  40  UFC  C*  P  -  TOOO  BAR5. 


H  FUEUWUFT  REVISED  »L‘T  T  1980 - 

NOOTEIEO  TO  TAKE  OB  INPUT  PRESSURE*.  AND  OUTPUT  IN  C NP*57GN  28N0V80 

N.8N1Y  -  -  ■  . "  - 

REAL  Pl»P»T*S,RH0*SR*Rl*R2*R3.R4 
REAL  A  »  P  *  C  *  0  *E  *  Al »  8 1  *  A  M  *  8 W*  K  «K0VRW 
FOUIV 

- FOUTVAL'FNCF . rE.U,”Bl  ,R4T,1  BU,  B,R3  IVI C*  117*71 - 

EQUIVALENCE  <  AM«’A«R\*RO)  *IKU*KO«K) 

CONVERT  PRESSURE  TO  ¥AR5“*¥0  SOU ATTF  ROOT  SWCYHTTY. 

P  •  PlR.l 

SR  •  SORT  I ABS  HI  1  - - -  - 

CONFUTE  OENSITY  PURE  MATER  AT  ATN  PRESSURE 

- R1  ■  IT'II6.5  36332P~9*T-1. 120063E!-61  *T  ♦!. 00168 5€— 51*1 - 


8500 

8550 

8600 

8650" 

8700 

8750 

8800 

¥850 

8900 


8950 

9000 

9050 

9100 

~VT50' 


X-9. 095290E -3  >  4T*«»i  793952E-2 1  RT*999.  842594 

SEAWATER  0EW5TTT  ATN  PRESS. - 

R2  -  <« I5.3875E-94T-8.2467E-71PT47.6438E^51PT-4i0899F-3»PT 
T48.24491E-1  - 


J 
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9790  R3  -  {-l.6586E-6*TM.0227E-6>*T-5.?2866E-3 

9750  R8  -  8.8318E-8 

9300 - imo~~g~  <W«*»S  ♦  R3»SR  *  •R7TrS~*~rr - 

9350  C  SPECIFIC  VOLUME  AT  ATMOSPHERIC  PRESSURE 
'960U  ALPHA  -  T,E*37WWr 

9850  EOS 50  -  ALPHA 

9500  tfcp.ec.o.otrttorn 

9550  C  CPHPUTF  COMPRESSION  TER HS 

"9300 - r.rr.~  i  o  *  t  ♦  ? .  dm  sr-s  v  at-ovth  r 

9650  8W  -  I5.2787E-8*T-6.12293E-6)RT^8.50935E-6 

9T00  R  -  RV  ♦  FAS 

9750  C 

9800  T)  •  I.91075E-6 

9850  C  -  <-1.607BE-6RT*l.0981E-5)RT*2.2838E*3 


9950 
10000 
10050 
10T00 
10150 
-19700" 
10750 
10300 
10350 
10800 
10850 
"T  0509 
10550 
10600 
10650 
10700 
10750 
TOROO 
10850 
19900 
10950 
11000 
11050 


*♦3.739908 

A  .  fO*S*  ♦  C)*S  ♦  AW 

PI  -  f-5.3009F-8*TM.68P3F-2)*T'»7. 988**7 

«l  -  <  (-6.1670F-S*TM.09987F-?)-*T-0.603859)8T*58.6786 

—  ▼W  -5  r  f  T  -  5 . 1 8  5?Tr8r=R'*T  rrr360  577F=7 rrr-773 77T 05  f  91 - 

*♦  l  88.8  708 )*!♦ 1965?. ?1 
KO  •  (  B  l  *  S  R  ♦  All*5  ♦  KW 

K  .  fR*P  ♦  A|«8  KO 

ALPHA  -  AL  P  HA* (1.0  -  P/KI 

- roi*o  •»  «tm  - - - 

RFTU»N 

FNO 

V350P  FCN  ♦  OCT  7  1980 

PEAL  FUNCTION  T350PIFI) 


SPFTTTTr  YOLnjNT-rCRP^TirHT  FOR  S  -  35  NSU  \  TPSY-78 Ik 
TFNP^RATUPF  0  QFO  CFLSIUS  IIPTS-68)  AND  PRESSURE  IN  DECIBARS. 
FOUATION  DERIVED  FRO"  ETT58  0 

CHECK  VALUE:  V350P  -  9.337831E-8  MRR3/KG  FOR  7  -  1000  BARS. 
"OOTETEU  TO  ACCFPT  TNFTJT  PRF1SURE  TN  OB  >NB  OUTPUT  YE.ROL  TW 
CP*83/G*  78  NOV  80.  N  PRAY. 


11150  ALPHA  -  9.  77662E-8MI. 0-P  /  I  21582.27^(  3. 35981»5.032EU*>RP  I  *P  1 1 

11200  ALPHA  «  1 .  F  ♦IRAL'PKI  - 

11250  V350P  -  ALPHA 

11300  RETURN 

11350  FNO 

11600 - C  OF  FEH  F  CN  TRATR  -rTTf  ~7~r9B9  7M37 - 

11850  REAL  FUNCTION  OEPTHIPI ,L AT) 

TT500  C 

11550  C  OF  PTH  IN  OF  TFR  5  FRO*  PRESSURF  IN  DECIBARS  USING 
11600  C  SATJNOERS  ANO  FOEOMOFF’S  *E THOO. 

11650  C  DEEP-SEA  RES.,  1976  ,f?3  *  109-1 1 1 . 


11750 

riBOO 

11850 

11900 

11950 

12000- 

12050 

12100 

12150 

I?200 


REAL  LAT 
P  -  Pl*.l 

*  -  SINILAT/57. 29578) 


GR  •  9.7803188fl.e*C5.2788E-3*2.36E-5Pjr)**)  ♦  1.092E-5RP 
OEPTH  -  f(  C-l.B7E-llRPP2.779r-7)9r-2.T9I7F=T)RF>97.765VI*P 
OFPTH  »  OEPTH/B* 

RF  TURN 


I 


m 


1225  0 
12300 
T7T5TT 
12400 
12450 
17500 

12550 

12600 

12*50' 

12700 

12750 

12600 

12650 

12900 

t 7vnr 

12954 

12958 

12962 

12966 

12970 


PND 

ATG  PCN  ♦♦*♦*♦♦*** 

- FUNCTTW  ATG(P",TV53 - 

**************  *********** 

AOTAPATIC  TEMPERATURE  G» AO ! ENT.  JDRrOPN  1973. 

OS  -  5  -  35.0 

- ITG  «  -<Tr=2;T6ir7F=T6*T*l~.S6  26fc-mP'T=4767ff6E-133FP 

T*C(?.7759E  — 1?4T— 1.1351E— 10I*DS*M— 5.4481E  — 14*T 
X*8.733E-l2>  ♦  T-6.'T795P-10  )*T*l.~8T4lF^0y>*P’ 
X*(-4.2393E-8*T*l.8932E-6>*DS 

X* ( ( 6 ,6228E-10*T-6. 036F-8 | *X* 8. 5258F-6I *?♦ 3. 58038-5 
RETURN 

- FWD - 

T)V  A  PCN  *****  PTSfll  **♦*♦ 

FUNCTION  0VA<P«TySl 

************* * *********** 

SPFCtFIC  VOLUME  ANOMALY 


12978 

12902 

12986 

17990 

13000 


13100 

m  so 

13200 

IT750 

13300 


OVA  -  SVAN(P,T^5,SPV» 

RETURN 

FNO 


SVAN  FCN 


************************* 

SPFCTFrr  VOLUME  AN0WILYA1F5 
FEB  T5  1976  N  FOFOOOFF 
V  -  F0S80 ( P  *T »S 1 
SVAN  -  1.0E5MV  -  V350PIPM 


t 


4 

i 


13500 

13550 

13600 
13630 
13  700 


unu 

13800 

13850 

13900 

33950 

14000 


END 

THETA  FCN  A************** 

FUNCTION  THETAtP0,T0,5 ,PF» 

*  *  **  * ***********  *  *  I  ********* **** — 


it  L  DC « L  ruicni  i  «L  icnrtmiiunc  »  i 
FOURTH-ORDER  RUNGE-VUTTA  INTEGRATION  USING  STEPS  OF  100  OB 
PR  LFSS. (RAlSTON-WItr  VOL  1  PTT5*  F0Z6) 


OCT  12  1975  N.  FOFTJNOFF 


■\  14050 - 

P  14100 

i;  14150 

jj|  14200 

1  14250 

f  14300 

- P--~F0 

T  «  TO 

H  -  PF  -  P 

N  -  ABSIHI/1000.0  ♦  1.0 

H  -  H/FLOAT IN) 

00  10  I«1*N 

--  -  -  -  • 

fK  *  H^4T6^tF<iS) 

14400 

T  •  T  *  0. 5*XK 

14450 

0  **  XK 

14500 

P  -  P  ♦  0.54H 

14550 

XK  •  H*ATCIP«T,.T1 

.  • 

14600 

T  -  T  ♦  0.29289322MXK-Q) 

•  1  1 


LUtfLLU1! 


14700 

14T50 

14800 

14850 


XK  *  H*ATGtP*T,S> 

T  -  T  ♦  1 .  T07106 78T •  fVIT-01  - 

0  -  3,41421356 ?*XK  -  4.1 213203 44PQ 
P  •  P  ♦  0.5PH 


128 


woo 

14950 
1500U 
15050 
T5100 
15150 
l^TUO 
15750 
T5700 
15350 
15 400 
15450 
155013 
15550 
15600 
15650 
15700 

15750 
15500 
15650 
15900 
15950 
16000 
16050 
16100 
16150 
16700 
16750 
16300 
16350 
16400 
16450 
I65U0 
16550 
16600 
16650 
16700 
16750 
"15500’ 
16850 
16900 
16950 
17000 
17050 
17100 
17150 
17700 
17750 
17300 
17350 
1741)0 
17450 
17500 
17550 
17600 
17650 
17  700 
17750 
17800 
17850 
17900 


XK  -  H*ATG(P»T,SI 

T  -  T  ♦  (XK— ?.ff*Q)/6«0  _ 

THETA  -  T 

RETURN 

PNO 

T65  FCN  ****♦♦**♦♦ 

FUNCTION  T68f  T  )• _ 

TO  CONVERT  T-48  TO  T— 68  TEMPERATURE  SCALE 
FFBf  15  1976  N  EOEONOPF 

T68  -  T  -  4.4E-6*TM 100.0-T) 

RETURN 


T48  FCN  ♦♦♦♦*♦#•*• 

FUNCTION  T48(T) 

************************* 

TO  CONVERT  T-68  to  T-48  TEHPER1TTWF  SCALE 
FEB  15  1976  N  EOEONOEF 

T48  -  T  ♦  4.4F-«-6*T*(100.0-T) 

RETURN 

FNO 

OVTTT  FCN 

FUNCTION  OVOT(P«<T»Sf 

-»  *****  *  »m  ******  rr»  **■**  ** - - 

OF  R IV AT  I VE  OF  SPFC1FTC  VOL.  WITH  TEMPER  A  TURF ♦ IE 5 
EFBT  70  1976  N  FOFONOFT' 

M  *  0.75 

OVDT  -  (5.0E4/H)4(E0580lP,T*H,S)-E0S8f)(P,T-HfS»  » 

- P^TURFJ - 

FNO 

OVOIB  FCN  ♦*♦♦**♦*•♦  - 

FUNCTION  0V0S(R»T,S> 

OFRTVAT I VF  OF  SPECIFIC  VOL.  WITH  S AtTNI TY*IE5 

FEB  70  l9iT6  ~WT OF ONTTFV - 

H  -  0.5 

OVDS  -  I5.0F4/H)4fF0S80|P»T*  S+Hl-EOS  80f  P  »'T  %  S-H3  I 

RETURN 

FNO 

WoF  Ton  *****  *  **** 

FUNCTION  OVOP<P«TtS) 

************************** 

AO  I AM AT  I C  DERIVATIVE  OF  SPEC.  VOL.  WITH  PRESSURE*IE5 
FF8  70  1976  N  FOFONOFT  “ 


OVOP  -<5.0E4/HF4IEDS80<P»H*T,S)-E0S80(P-W*T,SH 

X  ♦  ATGfP.T *5)*DTDTfPfT *5)  - 

RETURN 

PNO  - 

OKOT  FCN  •♦♦♦♦*•*♦• 

ACIANATIC  COMPRESSIBILITY  TEMP  OTRTTfTIVE 
EE 8  70  1976  N  FOEONflFF 


I 
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17950 
18000 
TT6W 
18100 
18150 
18700 
18750 
18100 
1  8150 
18500 
18550 
18500 
18550 
18600 
'T8S*>CT 
18700 
18750 
18800 
1W850 
18<»00 
-15050 
19000 
19050 
19100 
19150 
19700 
19250 
19300 
19150 
19500 
19550 
19500 
19550 
19600 
19650 
19700 
19750 
19800 


19900 

19950 

70000 

70050 

70100 


CUIJV 

70700 

70750 

20100 

20150 

70500 


r. 

20500 

20550 

70600 

20650 

70700 


20800 

70850 

20900 

20950 


M  -  1.0 

0K0T  -  f0.5/Ht*fnVDPfP,T*H,S)  -  DVDPI P,T-M,S I) 

PFTUPN . 

END 

C  OKOS  FCN  #♦♦♦♦♦*♦♦♦ 

FUNCTION  OKDS  (  P»'T *S  I 
C 

C  >Df88ATIC  C0»PRFSS18TLITY  SALINITY  DERIVATIVE, _ 

C 

H  -  7.0 

DKOS  -  (0.5/H»*(UVDPIP  ,T,S«-H)  -  OVDP I  P  *T,5-H1) 

RETURN 

FNO 

"T"  T#  t  Tffl  *  *T*AO  Hi - 

FUNCTION  S  AL  I  P  ,<T  ,0 ) 

C  *5***55*****5****55**5*55* 

C  CnPPtlTE  SALINITY  GIVEN  P»F  SSURE  , TE  MPFRATUR  F  AND  SPECIFIC 
C  VOLUME  ANOMALY! 10A*5*DELTA I 
C  EEB  16  1976  N  FOFONOEE 

_t - 

K  •  0 

SAL  •  15.0 
10  S  «  SAL 

SAL  -  S  ♦  (D-Sf 4NIP,T,S*V>)/!JV05TF,TV51 
*  -  K*1 

- Trnr=5in70TT07TO - 

70  TF( A8S1SAL-S) -0.0005110* 10* 10 
10  RETURN 

fnd 

C  NOYFS  FUNCTION  ****  OFC  1  1979  MWfC 

FUNCTION  NOYES<KTN,KTTX) 

- 

C  PF  TURNS  l  FOP  YES  -1  FQR  NO 
NOYES  -  0 
1  PFA0fKIN,10)LB 

lO  FORMAT ( A? I  - 

C 


LliAi: 


rFIL8.F0.2HN0IN0YF5— 1 
TFCNPYES110,?0t1O 
C  F»»0® 

70  HRITF(KTTX,100I 
100  FORMAT !  *  t  YES  OR  NO?  *> 


10  RETURN  - -  ' 

FNO 

C  CTfTSO  FILF  **♦♦♦♦♦  JULY  15  1977  *♦♦♦*♦♦*****♦*♦♦*♦* 
C  THS AL  FCN  ♦**♦♦♦♦*  JULY  6  1977  ******♦♦♦♦♦**♦♦♦*♦♦ 


iKUAfttiKMZkfii 


C  TAKF^  up  TO  75  CUBIC  SPLINES  TO  GENERATE  A  SALINITY  FRO" 

C  ROTFNTTAL  TF"PFR ATURF  REFERRED  TO  THP  SURFACFY. INPUT  UATA 
C  CONSISTS  OF  LOWER  SPLTNF  80UN0ARY  FOLLOWFO  8Y  FOUR  COEFFICIENTS* 


i jia in 


C  ISELTN  4 NO  WORTHINGTON  "ETCALF  THETA-SAL  DATA. 

C  “  - 

DIMENSION  CIS, 751 

C  data:  - 


130 


2rooo 

21050 


miy 


21150 

2T200 

21250 

71300 

21350 


MCliltl 


21450 

71500 

21550 

71500 

21650 


21750 

71800 

21850 

71900 

71950 


e. 

22050 

77100 

22150 

77700 

22250 


C  C  JUU 

22350 

77400 

22450 

77500 

72550 


DATA  C/0. 00, 34. 73 8 06 3, 0.0, 0.0, 0.0* 

♦  0.50*34 .73 805 3 v. 107290  ».584849E— 02»— • 253429E— 0?  * 


rmiJlj  u  t7in  i  ■  w  wta  i#i,i  ^ai %  lfwiffj  u  «  gjj  \ 


♦ 1.50, 34. 85029  7*. 1 27  785*. 529320E-01, -.  1353  79, 
*1.75,34.883436  ,Tl  2  8  8  6  8 , - .4  8782  SF-0 1 ,  -  .  1799T3  , 

♦7. 00, 34. 91 05 87,. 802 l 74E-01,-. 146093,. 228970, 

*7.  25,34.925087  ,V50093  6F-01  ,V2r5T4B4E-0 1  ,-;7fc73B2F-0 1  ,r 
♦2.50,34.938790 ,»•  578  544E— 01,  •  552526E  — 02  359945E— 01 , 


1 1  aiitm  luticiireRkwuuaiii 


♦3.00,34. 9645  75  ,..‘360969  E-01*  —  .  495364E— 01 » • 509274E—01 , 
*T.  20, 34.9707  70, .7  73 936F-0I,-. 1 89792 F-0 1  »V5806 837-01 , 
*3.40,34.9744  06,.217901E— 01,.157868E— 01  ,i.  4T9  730E— 02  , 
*1.60,34.979434  86805  F-OTr.T&7975F-OT*-.  2,94T72F-01, 

♦3.80,34.9856  79^3  25895E-01,.102958E-02,-.779688F-0l,' 


111  Wf.T'VKW’f  A  *T  ‘1 4  ■ 


♦5. 00,  35.01238,  .'175223F-01*.  357759E— 02 , • 114377E—02* 
*7; 00 * 35 . 07 0 89,.-455579F-01 r.T0T386F-01  ,  . 36559 2F-05 , 
♦  ro.  00, 35. 30 174,.' 106423,.  1051 72FMH, -. 763343E-03, 
*13.00 ,35 . 7 0106 ,7.T5WIB  r. 36 47901=07,  .31 08051  -04 V 
♦16.00,36. 18748, .1 73  643,  • 392926F— 07, — •  689782E—07*i 


,  jn .  -> -j  r -3 3 , . 1097757— 1 or, — . 

*21.00,36. 90401 18y0 .0,0 .0,0. 0415*0.0/ 


OAT  A  KNOTS/??/ 
250  X  -  0.0 


U'J  7  t  V>  1  •  1 

nr  -  cil.l l  -  r 
TFrr)T>305, 320,370 
305  x  «  -or 

310  rONTTNUF 
370  n  -  X 


♦ 


4 


77650 

77700 

27750 

77800 

72850 


C  c 

22950 

73000 

73050 

73100 

73150 


C  KUU 

73750 

73300 

23350 

73800 

23450 


C  J  7VV 

23550 

73600 

73650 

73700 

23750 


TF(  10)375,325,330 
375  TO  -  1 
0  -  0.0 

330  TH5AL  - ( f C ! 5 ,T01*0>C 15 
RETURN 
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FUNCTION  VRBLfNVRI 


l  iubi  nu  i 


fj.ii 


«AR  25  1976  N  FflFONOFF 

VAT  VFR5I0N — IN0TA8  0CFAN  DTTA  T19T6T.  NOV  1980.  TTiOlUY 
INCLUDE  * C08 RE FIT. FOR* 


10  VRBL  -  1.0 

8FTURN  ~  -  - - - - 

20  VRRL  -  0.0 

TTFTUR  N  -  - - 

30  GO  TO  (31, 37,3 3*34*35, 36,37*38*39 *<4 0,41  ,'421 NVR 


ij  j|' ll  • 


23850 

31 

VRBL  • 

XPL 

f 

r 

77900 

8FTURN 

. . 

. . 

- 

23950 

37 

VRBL  - 

YPL 

t-  ' 

- 

78000 

TFTURN 

- 4 

1 

r 


r-%,  »  "  t  v  • 


131 
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A 


24050 

31  9RBL  • 

XLAT 

24100 

RETURN 

24150 

34  RRBL  - 

XLONG 

24200 

RETURN 

?4?T0 

35  RRBL  - 

ICON 

24300 

RETURN 

74550 

36  VR5L-VGT 

24400 

RETURN 

74450  " 

24500 

17  TRBl  - 
RETURN 

OIY 

74550  - 

38  RRBL  « 

1 5  HP 

24600 

RETURN 

24650 

39  VR8L  • 

ICA5T 

24700 

RETURN 

24750 

24800 

40  V8BL  » 
RETURN 

N 

~ — 74650  “  ■  - 

41  WBL  - 

NOP 

24900 

RETURN 

- 24956 

25000 

- 25050 

25100 
"  75T50 
25200 
25250  ~ 
25300 

- 25T50 

25500 

75450 

25500 

25550 

25600 


C  70  7  U 

25700 

25750 

25800 

75850 

25900 


26000 
~  26050* 
26100 
76150 
26200 


4  7  TFfNVR-48 1 470,45 ,43 - 

420  RRBL  •  VR(NVR-11I 

- - 

41  E0  -  OPDV(DVE,OVNtCP*N,f 1*E2) 

TTJF"  -~PT  -  FT - - 

f 1  -  -,050968*P0F**2/E0 

F7  -  fF7-SFl»F0 - - 

F3  -  -•  05096  8RE2*E'2/E0 

- F5“=-  OPtJV  T  ST  ;  Of  *VCP  797FT7F7 1 

NVRX  -  NVR  -  47 
W  T0r46* 4 0,50 ,5T.57,5T.54,55; 
IF  ( NVRX. CT *111  GO  TO  58 

40  VWHL  •  F7  ’  - 

RETURN 


RETURN 

50  TWOt  •  PDF 
RETURN 

5T  TWBl  -  5F  -  DVF 
RETURN 


a  iff  j  iii  uftiv  i;i » i  fiiMxr.i  l 


RETURN 

55  TRBL  -  FT 
RETURN 

54  ▼FBI  -  OT1 
RETURN 


26750 - 

26300 

26350 

- 55  VRBL  -  Ei - 

RETURN 

56T  9RBL  -  E  O 

- _ _ 

26400 
—  76450 

RETURN 

57  TRBL  -  T.07E0 

. 

-  .  .  .  .. 

. . . 

.  - - 

26500 

RETURN 

• 

1 

* 

*1 


26600  VF  -  E0580I PE,THF,5HFI  ♦  1.0 

"  76650  THP  -  OPOVTORF^OTWtXTf  W  ♦FTVF7T7FO -  - - 

26700  5HP  -  (1.0/EO  -  OVDTCP F ♦ THF ,SHFI *THP > /DEOS f PE ,THF*SMFI 

76750  OR  -  -1.0817VF!  **2  - — - 

26800  8V1  -  100.0+GR/E0 


toovu  CS  .  TIM  1)1  - 

26900  TMT  «  P0LY«SF,0RN,CT,N,El»F2l  ♦  THH 

26950  51  -  5*rTPFVTHTV5TI - 

27000  IF  f  NVR— 67) 585*582*582  _ 
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2  7100 
27150 


e*  .  -50.96A*GK»P0F*+2 
585  NVRY  -  NV»  -  57 


irii  mu  m  ll  n>i 


[.l.fl.VFlill 


'! 

ME 


29950  VRP!  -  71*Z1 

30000  770  Y  -  VRPI  ♦  ?*POF9injF 

10050  VRBL  -  .5#VPPl*P59ff»*Y 

30100  1»FTUPM 


30150 

30700 

78  VRPI  -  3 • *  7 1 *71 /NOP 

GO  TO  770 

30250 

79  VP P I  -  16. 

30300 

GO  TO  770 

30350 

80  VRPI  -  71*7 1 /NOP 

30400 

800  Y  -  ,5*VRPI*(VRPT  ♦  2* PDF ) 

30450 

VRBL  •  GK *  *  2 * Y 

30400 

PFTUPN 

- 3O5*>0 - 

8 i  vrp i  ■  rs. 

30600 

GO  TO  800 

10650 

87  VR8L  -  -1 

30700 

RETURN 

30750 

83  VRBL  -  -l 

30800 

PETUPN 

BT  VP1U  - ~D VTTP  (  P F  ,  TXr,  W1 

30900 

RFTURN 

30450 

85  VRBL  -  0V0S(PF*THP*SHF1 

31000 

»FTU»N 

31050 

86  VPftL  -  OVOP(PF,THF,SHF)*POFr 

31100 

PFTUPN 

31150 - ft  T  VP  BL -  - iTTPOF  *  H^Tfctr 

31200  RFTURN 

31750  88  VRBL  -  -1 

31300  RFTURN 

31T50  89  VRBL  -  -1 

31400  RFTURN 

7TT5U - OO  VPBl  -  -1  ~ 

31400  *FTUBN 

31550  91  VRBL  •  (5F-F3)**2 

31600  RFTURN 

31650  97  7  -  -THP*PDF 

31700  VP BL  -  1/7 


31800 

93 

VRBL  - 

1/(E0*F01 

3T550 

PFTUPN 

31900 

94 

VR8L  - 

THI *TH! 

31950 

RFTURN 

37000 

95 

TH8  5  - 

C(TREC,4I 

Wi  1:11 

32100 

RETURN 

37150 

96 

TH8"  « 

Cf IRFC*4! 

32200 

VRBL  - 

-( THF-TN85)/(THP*P0F 1 

37750 

RFTURN 

37300 

97 

YRBL  • 

THI 

37350 - 

VI  TURN 

37400 

98 

FO  -  1. 

O/FO 

37450 

VRBL  » 

-  .  5  *  F  6  *D  7P0VI OVF  »  0  VWVCF  *.WWF3  *T  71  *  (  P  D  F  *E01  **7 

37500 

PFTUPN 

34400 

2000 

FND 

34450  C  KOAY  FCN  ♦  ♦*♦♦  K0AT5  JULY  6  1977  **♦♦♦♦ 

34500 - ru qrf  TON  K  0  AT  ( TB  JfflTTWl - 

34550  C  ♦#*♦**♦♦**♦•**♦♦♦#•♦*♦♦*•#♦♦•♦♦•♦*♦**♦♦ 

14600  C  mNVPRT  grfghpian  gate  to  julianttcy 

34650  C  USF5  LAST  4  DIGITS  OF  JOHAN  DAY.  AOO  244000(7  TO  GET 
34700  C  FULL  JULTAN  DAY. 

34750  C 

34  000 - C  JULY  12  T975 - - 

34550  C 

14900  T Y  -  TYP  -  65 

34950  TF (7-150110 *2 0*20 

35000  10  «  -  1*0  -  3 
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J  3T550  (JO  TO  30 

35100  20  9  •  TWO  *9 

- 35T5U - TT-TT”=r - 

35200  30  KO AY  -  (1461*171  74*1 15  3*8*2  1/5  ♦10-84 

'35250  9FTUPN 


33300 

35350 

35400 

- 35T5 0~ 

35500 
'35550 
35600 
'  3555CT 
35700 

- 35750 — 

35800 

“35850 

35900 

T5551T 

36000 

- 36050 — 

36100 

35150 

36200 

-36750 

36300 

- 35550 — 

36400 

- 36450 

36500 

36550 

36600 

- 35650 — 

36700 
36750 
36800 
36850  ~ 
36900 

- 36950 — 

37000 
37050 
37100 
371 50 
37200 

- 37250 — 

37300 

37350 

37400 

37450 

37500 

- 37550 — 

37600 
37650 
37700 
-  37750 
37800 

- 17850 

37900 

37950 

38000 

“  38 050 


7  NO 

C  Wn7ST7  ******  CTOSB  JULY  7  1977.  ***** 

SUBROUTINE  KDATPf  KD*  I'D  »8.  IY 1 

T~** W9 A'**  *T*  +  *  *  ¥¥**¥¥* W*T¥W^¥¥fWWf¥¥Wi - 

C  CONVERT  JULIAN  DAY  TO  GREGORIAN  DATE 

C  . .  ’ 

K»K  0*84 

7Y*  f  4*K-1 1/1461 
T0*4*K— 1 -1 461 *1 Y 

- rr__-rr  ,  - 

10*(I0*4)/4 
W-( 6*1 0-3 1/153 
TO *5*10-3-153*8 

TD*fTD*51/5  -  ‘  . 

TE<M-I0120,l0.10 

- l'Tr5T7T-*9 - 

TY* I Y* 1 
PFTURN 
20  w-HO 
VFTURN 
FNO 

C  V*g  rCN  7**»»  38881  »»»♦» - 

FUNCTION  VKE  f  P ,T*  S 1 
C  *•*»***♦*•***•♦**•**•**•* 

C  SRFCTFIC  VOLUME  KNUOSEN/FK 8 AN 
r  FF5  T5  1976  N  EOFOWOEF 
C 

- 90  *~~OVOOT*50T  FT  ,5  ,503 - 

VO  *  -VO/d.O  ♦  V01 

70  7KF  -  »-4.886F*6*77fi;0*T.53F=59FT  *  I  CT.5F-T7»r*F 
X  ♦  (  (-6,  Of  -1  7*T*.l  ,  8F-1 5  1 *5G* (  — 2.0F-l6*T*l.206F-14 1*T 
T  —4  *?40E  — 13  T*TG  *T2  •  15F— T4*T— 1*  24064F— TllVT-lS.OOF— 143  97 
X  ♦  (  ( 1 *0E-12*T— 4.5F— 11 1 *SG 

- y  » ( 4T0E-1?  *T-3 i 2 8F— 10 1 *T* t.  725E— 8I*SG - 

X  ♦  (  ( 4. OF.-l 2 *T-6.’63E  — 101  *T*3«673F— 8 1  *T-2 .2072E— 71 *P  1 

▼KE  -  VO  ♦  VKF*TI *0  F  VOT -  "  "  - - 

RETURN 

FNO  - - ~  -  ' 

C  0V7R0  FCN  **♦**♦*♦**♦♦♦♦♦♦♦**♦*♦♦**♦***♦♦♦**♦ 

- mwrrrON  ••PV7R01R0*DV5*P^r*XP*N*lroP*V5N*fWX*.I  VHIy»KCMT*.^C0Nt^lFl8y, 

c  ***#♦*♦♦*♦*♦****♦***•*♦*•*••♦*♦**♦♦♦♦♦* *********** 

C  -  - -  1 

C  TO  INVERT  POLYNOMIAL  FOR  INDEPENDENT  VAR  I ABLF."  j 

«  . .  -  •  | 

C  FF8  1  1976  N.  EOFtSVOEF 

~C - - — — 

DIMENSION  CFfll- 

XN  -  0.0 

VP  •  0.0  '  -  '  .  • . —  -  - 

POE  -  PO 

- RTF-S-fl - 

OV  •  lVMX-VMNim.OATTNDP-11 

m  50  3*1  .NOP  —  -  -  - 

V  «  V8X  -  OV*FLOATf J-l 1 

R  «  POLYIV,OV8tCP,'NFT8N,V8X7''F-TN-  - 


•4 

4 


30100 

38150 
“3*1?  oo 
3B250 
38300 
38350 
38400 
38450 


38550 

38600 

30650 

38700 

38750 


40050 

40100 

40150 

40200 

40250 


40350 

40400 

40450 


OP  -  OPOVI V,nv5,CP*N,VHN,VNX) 
T  F  < J.F0.N0P/2)THEN 
r>Po«op 
vo-v 

FNO I P 

TF ( OP ) 5  *  50  *  50 

5  pn  *  po  -  p 

TFIKN)7*7*9 

7  9P0  -  PU_  - 

KN  •  KN  ♦  1 

9  rF(A®S(PD)-P OF  112*10*10 
12  PDF  -  ABSIPO) 

VS  •  V 

10  fP(PPO*PO 115*50*50 


l  ' 

taBiiiiidiHi 

- TT 

vp  .  3nr~4~ir  "  * 

30050 

XN  -  XN  ♦  1.0 

• 

38000 

ppd  -  po 

■i 

38950 

50 

CONTINUE 

.  1 

39000 

60 

fFIXN  -  1.0)66*70*65 

1 

.  *> 

39050 

65 

OVZRO  -  VR/YN 

-  : 

39100 

CO  TO  ^0 

39150 

66 

OVZRO  -  VS 

•.  | 

39700 

00  TO  90 

39250 

70 

K  -  0 

1 

39100 

V  -  VR  -  - - 

...  -  '■■■*• 

'  '  '  "  . . 

39350 

75 

VP  -  V 

19400 

39450 

r  *  P  fjL  T  f  V  9  0 V*  P  «  rft  f  F!N  y  Y^X  )  ♦ 

V  -  VP  ♦  CP0-P)/0PDVIV,DV«,CP.N*VHN*V5XI 

"39500 

r  -  x  ♦  i  - - 

....  - 

39550 

1FCK-100180, 85*85 

-• 

* 

39600 

80 

1FI ABS  (  PO  — P  1— 0  .7)5 1 85*75  *  75 

'  '  -  ■  -  -  ■ 

.  •  '  ’ 

■ : 

39650 

05 

OVZRO  -  V 

* 

39750 

95 

CONTINUF 

*  | 

.. 

39  800 

PO-ABSf C0VZR0-V0140P0) 

"  —  ‘  '  ' 

39050 

PPO-A0S1 P0-N0P40FLP/2) 

- 

39900 

MP  ITF  CXTTV*  10001  FSHP  *KCA5T*  rCTW*P 0 *  PFO 

:  1 

39950 

1000 

FOR0AT 1 1H  *  *  FOR  STATION  *«A2*«?I3**  AT#VF8.0,*  08  LFVEL, 

LI8.I  i&A : 


OVZRO  -  V0N 

IT  1 V*  V-DV7R0 1 105  *1  ro,  n  0 
CONTTNUF 

P  0« ABS I  ( OVZRO-VOT *0801 
PPQ-AB$<P0-N0P*DFl.P/2) 


:t  1 1 


0V7R0 

110  RFTURN 
FNO 


II** 
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